Danke für den Tipp :-))
habe wohl nun ein Schleifenproblem
es wird nach wie Vor scheinbar nur eine Datei eingelesen
im Memo1 sieht man allerdings die Letzte Datei der Liste.
Es sollten im Memo nun alle Files sichtbar sein. Tun sie aber nicht.
(Anfängerpech)
Delphi-Quellcode:
begin
if OpenDialog1.Execute then
with OpenDialog1.Files do begin
AssignFile(Datei, Opendialog1.Filename);
{$I-}
Reset(Datei);
{$I+}
if IOResult <> 0 then
begin
MessageDlg('Fehler beim Zugriff auf die Datei', mtWarning, [mbOk], 0);
exit;
halt
end
else
MessageDlg('Dateigröße in Bytes: ' + IntToStr(FileSize(Datei)),
mtInformation, [mbOk], 0);
{ Memo1.Lines.Clear;}
while not EOF(Datei)do
Begin
Readln( Datei, Zeilenpuffer);
Memo1.Lines.Add(Zeilenpuffer);
end;
Reihe:=Reihe+1;
Edit1.Text:=IntToStr(Reihe);
CloseFile(Datei);
end;
end;
[edit=Luckie]Delphi-Tag korrigiert. Du musst die Tags auch schließen mit [/ Delphi]. Mfg, Luckie[/edit]