Hallo zusammen,
Ich möchte den Inhalt einer Textdatei in ein Array einlesen, und anschliessend in eine dat. Datei schreiben. Mit einer Zeile funktioniert dass auch schon so:
Delphi-Quellcode:
var m: textfile;
S: Array[0..10] of char;
content: char;
d: File of Char;
zaehler: byte;
begin
AssignFile(m,'C:\Messier.txt');
Reset(m);
Readln(m,S);
AssignFile(d,'C:\Messier2.dat');
Rewrite(d);
for Zaehler:=0 to 10 do
begin
content:=s[zaehler];
Write(d,content);
end;
end;
Hier lese ich den Inhalt der Textdatei "Messier.txt" im Stammverzeichnis C:/ in das Char-Array "S" ein (Maximale Länge einer Zeile ist hier 10 Zeichen). Anschliessend wird in der folgenden "For" Schleife der Inhalt des Arrays Zeichen für Zeichen wieder in die Variable "Content" ausgelesen (content:=s[Zaehler]) und dann die dat. Datei "d" geschrieben.
Leider funktioniert diese Methode nur für eine Zeile. Wenn eine Textdatei mehrere Zeilen hat, kann ich nicht auf die einzelnen Zeilen zugreifen, da es meines Wissens nach keinen Datenzeiger für Textdateien gibt. Habe auch versucht ein zweidimensionales Array zu benutzen, aber in den kann ich den Inhalt der .txt Datei nicht einlesen. Hätte jemand von euch einen Vorschlag? Villeicht auch ohne den Umweg über das Array?
Vielen Dank an alle
Ludwig