Thema: Delphi Textdatei einlesen???

Einzelnen Beitrag anzeigen

Pascal

Registriert seit: 10. Aug 2003
22 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Textdatei einlesen???

  Alt 11. Aug 2003, 22:32
Ich denke, dass du einzelne Datensätze aus Deiner Datei lesen willst.
Dazu musst du erst einmal eine Variable deklarieren, mit welcher du die Textdatei bearbeiten kannst. Dann kannst du mithilfe dieser Variablen die Datei zeilenweise auslesen und in einen String oder eine Stringliste speichern.

Ein Beispielcode:
Delphi-Quellcode:
procedure Readfile (filename: string);
varprocedure TForm1.Readfile(filename: string; var s: string);
var f: Textfile;
    helpstring: string;
begin
  Assignfile(f,filename); //Weist f die Datei zu
  reset (f); //Öffnet die Datei zum lesen
  s := '';
  while not eof (f) do begin
     readln(f,helpstring); //liest eine Zeile in den Helpstring
     s := s + helpstring; //fügt den Helpstring an s hinzu
  end;
  Closefile(f); //Schließt die Datei
  //!!! SEHR WICHTIG, sonst kannst du die Datei an einer
  //anderen Stelle nicht nochmal öffnen
end;
Wenn du nun noch einen Datensatz suchst oder einen Eintrag, würde ich empfehlen, eine Funktion zu schreiben, die dir das erleichtert, d.h., welcher du nur die Nummer des Datensatzes übergeben musst und dann den richtigen Datensatz erhälst.

Falls du in die Textdatei etwas schreiben willst, musst du statt reset(f) append(f) ausführen. Dies alles steht auch in der Hilfe, suche einfach mal nach Assignfile.

[edit=Luckie]Delphi-Tags hinzugefügt. Mfg, Luckie[/edit]
  Mit Zitat antworten Zitat