Delphi-Quellcode:
while not EoF(f) do
begin
ReadLn(f, s);
s := copy(s, pos(':', s)+1, length(s)-pos(':', s));
Memo1.Lines.Add(s);
end;
Is ungetestet, müsste aber gehen.
Musst halt u.U. n bissl mit dem +1 rumspielen, evtl. musst dus vergrößern/verkleinern.
//rotes Kästerli?!
Julian J. Pracht