Hallo leute,
So ich habe wieder mal ein kleines Problem:
folgender code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
SL := TStringList.Create;
SLSub := TStringList.Create;
SL.Add(Memo1.Text);
for i := 0 to SL.Count -1 do
begin
SLSub.DelimitedText := SL[i];
begin
IdIcmpClient1.Host := SLSub[i];
IdIcmpClient1.Ping;
Application.ProcessMessages;
end;
end;
end;
funktioniert ja auch alles gut, nur führt er mir diesen teil nur genau einmal durch:
Delphi-Quellcode:
SLSub.DelimitedText := SL[i];
begin
IdIcmpClient1.Host := SLSub[i];
IdIcmpClient1.Ping;
Application.ProcessMessages;
ist ja eigentlich auch logisch, denn wenn ich mir SL.count ausgebe bekomme ich immer 1.
ich kriege das einfach irgendwie nicht hin.
vielleicht noch zur erklärung, ich habe ein memo, dort steht auf jeder linie eine
ip.
ich lade mir das memo in eine StringList, jetzt möchte ich das ganze so unterteilen, dass jede zeile ein eigener wert ist.
und dann schliesslich jeden wert anpingen.
Wo ist der fehler, wie muss ich das abändern??
vielen dank schon mal
mfg headi
Zitat
Baum-Darstellung
