Hallo liebe Delphi Freunde,
die Arbeit mit Textdateien und typisierten Dateien macht mir zu schaffen. Ich versuche eine Textdatei aufzurufen und dann in eine typisierte Datei zu schreiben. Leider gibts da noch einige Bugs, so wird tempFile nicht als gültiger Dateityp angenommen und allgemein bin ich mir nicht sicher ob das alles so seine Richtigkeit hat.. Habt ihr Verbesserungsvorschläge? Bitte nicht köpfen
Delphi-Quellcode:
procedure Convert(fileName: string);
var
x, y: Integer;
tempFile: file of TextFile; // Liest Textdatei aus
tempString: string;
typedFile: array [0 .. 10] of TAdresse; // Array, der Zeileninhalte speichert
begin
AssignFile(tempFile, fileName); // Öffnen Textfile, Speicher in Tempfile
reset(tempFile); // Lesen Textfile
x := 0;
Seek(tempFile, 0); // Startpunkt
while not eof(tempFile) do // Solange letzte Zeile nicht erreicht
begin
tempString := ''; // Leerer String
readln(tempFile, tempString); // Lesen Aktueller Zeile
typedFile[x] := strToTyped(tempString); //Übergabe Zeile an Array, strToTyped konvertiert in string
inc(x); //Anzahl Zeilen;
end;
for y := 0 to x do
writeln(Newfile, typedFile[y]); //Übergabe an Typisiertey Datei
end;