Hi,
so sollte es gehen.
Delphi-Quellcode:
FUNCTION leseip(var quelle : string;): TStringList;
VAR
myiptext : text;
i : integer;
BEGIN
i := 0;
assignfile(myiptext,quelle);
reset(myiptext);
WHILE not EOF(myiptext) DO
BEGIN
Inc(i);
readln(myiptext,result[i]);
END;
closefile(myiptext)
END;
Der Code is eben grad "ontheFly" entstanden deswegen weis nich nicht ob er nicht nen Fehler enthält aber wenn solltest du den schon finden ...