Delphi mehrere zeilen auslesen

Thema durchsuchen

Ansicht

Themen-Optionen

mehrere zeilen auslesen

Ein Thema von whiteshark · begonnen am 7. Mai 2005 · letzter Beitrag vom 7. Mai 2005

Vorheriger Beitrag

Nächster Beitrag

whiteshark

Registriert seit: 4. Dez 2003
Ort: Cottbus
222 Beiträge

Delphi 2005 Personal

mehrere zeilen auslesen

7. Mai 2005, 17:03

Moin Leute,
ich bin gerade dabei das externe speichern und einlesen zu üben. mit einer Zeile aus einer Datei klappt es ja schon, aber wie kann ich mehrere Zeilen auslesen?

markieren

Delphi-Quellcode:

			function einlesen;

var File:textfile;

var s:String;

begin

AssignFile(File, 'test.dat');

Reset(File);

Readln(File,s);

memo1.Lines[0] :=s;

CloseFile(File);

markieren

Delphi-Quellcode:

			function speichern;

var File:textfile;

var s:string;

begin

AssignFile(File, 'test.dat');

Rewrite(File);

s:=memo1.lines[0];

writeln(File,s);

CloseFile(File);

Wie kann ich jetzt mehrere Zeilen auslesen?

Men are born ignorant, not stupid; they are made stupid by education. - Bertrand Russell

I cannot teach anybody anything, i can only make them think. - Socrates