Hallo Corpsman
also wenn ich deinen Vorschlag nehme, dann bekomme ich immer nur die 1. Zeile !!!
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i:Integer;
begin
AssignFile(Datei,'test.txt');
//AssignFile(Datei,'c:\text.txt');
Reset(Datei);
i := 0;
while not eof(datei) and (i = 5)do
inc(i);
//while not eof (Datei) do
begin
ReadLn(Datei,namedat);
Edit2.Text:=namedat;
ListBox1.Items.Add(namedat);
//ListBox1.Items.Add(namedat + ' nicht erreichbar');
//CloseFile(Datei);
end;
end;
Die Funktion von
Scart funktioniert super !
Delphi-Quellcode:
_____ ___ __ _ _ _ _____
| _ \ / | | \ | | | | / / | ____|
| | | | / /| | | \| | | |/ / | |__
| | | | / / | | | |\ | | |\ \ | __|
| |_| | / / | | | | \ | | | \ \ | |___
|_____/ /_/ |_| |_| \_| |_| \_\ |_____|
Nun möchte ich dass beim Fehler wie z.B. die Datei nicht Vorhanen, ... Keine Meldung erscheint
es soll nichts passieren und bleibt die Zeile leer.
