wie gesagt ungeteste aber ich sehe gerade
Zitat von
geskill:
VAR I:Integer; StringList:TStringList;
BEGIN
FOR I := 0 TO RichEdit.Count -1
DO BEGIN
StringList := TStringList.Create; // ist klar muss TStringList heißen aber darauf hättest du auch selber kommen können...
StringList.Add(RichEdit.Lines.Strings[I]);
StringList.SaveToFile('Zeile_'+ IntToStr(I));
StringList.Free;
END;
END;