auto

hvad med dette:

var
i : integer;
begin
i := 0;
        While (I < 20) do
        begin
        i := i + 1;
        memo1.Lines.add(IntToStr(i));
        end;
end;

du kan vel selv rette det til...

er sku ikke helt sikker på hvad du mener?

mig eller ham ? :O)

hehe ham krab...

Jeg har ændret lidt i det så det vil ligne noget du kan bruge:


var
i : integer;
X : integer;
ip : string;
startafIp : string;
begin
i := 0;
X := 10;
startafip := \'10.0.0.\';
        While (I < X) do
        begin
        i := i + 1;
        ip := startafIp + IntToStr(i);
        showmessage(ip);
        end;
end;

//razersedge 

jeg har lige et spørgsmål, hvad betyder
IntToStr(i);

for det er det du siger jeg mener

hvorfor virker dette ikke.

procedure Tfindserverform.Button1Click(Sender: TObject);
var
i : integer;
X : integer;
ip : string;
startafIp : string;
begin
server := edit1.text;
i := 1;
X := 999;
startafip := edit1.Text;
        While (I < X) do
        begin
        i := i + 1;
        if length(server) > 0 then
        with clientsocket1 do
        begin
        host := server + inttostr(i);
        active := true;
        end;
  end;

du har både en While og en if sætning, de skalæ begge bruge en \'end;\' mangler du så ikke en il proceduren ??

ellers... hvad siger den fejlen er??

dette her

Windows socket error: (10049), on api \'connect\'

Det er fordi den ikke kan finde den address:

WSAEADDRNOTAVAIL (10049) Can\'t assign requested address

Prøv f.eks med nogle Ip\'er du er i kontakt med, hvis det er muligt