aus einer richedit jede zeile einzeln in einer txt speichern

[buster55]

der titel sagt eigentlich alles ich hab eine richedit mit mehreren zeilen und möchte für jede zeile eine eigene txt datei erstellen die jeweils namen und den inhalt der dementsprechenden zeile haben

danke im vorraus

[DeddyH]

Der Begriff Schleife ist Dir geläufig?

[geskill]

Hi,
das ist so easy, du muss nur kurz nachdenken :thumb:

Zuerst brauchst du eine Schleife am besten FOR weil du kennst ja die Länge...

Also:

VAR I:Integer; StringList:TStringList;
BEGIN
FOR I := 0 TO RichEdit.Count -1
DO BEGIN
StringList := StringList.Create;
StringList.Add(RichEdit.Lines.Strings[I]);
StringList.SaveToFile('Zeile_'+ IntToStr(I));
StringList.Free;
END;
END;

(ungetestet ^^)

Man kann statt einer StringList dass auch über WriteLN etc. machen aber ich denke das verstehst du besser...

[buster55]

---------------------------
Debugger Fault Notification
---------------------------
Project C:\Dokumente und Einstellungen\Julian Wolf\Desktop\dic\Project1.exe faulted with message: 'access violation at 0x0045355f: read of address 0x00000000'. Process Stopped. Use Step or Run to continue.
---------------------------
OK
---------------------------



wenn ich das so mache erscheint die obrige fehlermeldung, und wo werden besagte txts eigentlich gespeichert ??
ach übrigens es heißt:
richedit1.lines.count;
nicht:
richedit1.count;

[DeddyH]

Und wo kommt die Fehlermeldung?

[geskill]

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;

[geskill]

ach ja wenn du gleich fragst wie kann ich dateien öffnen, mit dem editor es fehlt hat die FileExt, die kannst du aber noch in der zeile hinzufügen z.b. so:

StringList.SaveToFile('Line_'+ IntToStr(I) +'.txt');

[buster55]

perfekt vielen vieln dank

[Die Muhkuh]

Und bitte absolute Pfade verwenden!