So nun klappts auch hat ein wenig gedauert.
Ich stell das mal hier rein, ist auch für andere Anfänger bestimmt nicht uninteressant.
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Datei : Textfile;
Zeilenpuffer,Filename : String;
j : integer;
begin
if OpenDialog1.Execute then
for j := 0 to opendialog1.Files.Count-1 do
begin
AssignFile(Datei, OpenDialog1.Files[j]);
{$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);
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;
Das andere Beispiel finde ich auch ganz interessant und es funktionierte direkt.
Nur hatte ich Probs. (Fehlermeldung) TStrings und Strings sind nicht miteinander vereinbar als ich versucht hatte S dem Zeilenpuffer zuzuweisen um den Text in meinem Programmrest weiterzuverarbeiten.
Würd mich schon interessieren wie man evtl. TStrings in Strings konvertiert oder mit TStrings Textbestandteile (Wörter, Datum, Zeit im String) untersucht (suchen, finden ersetzen).
Nochmals Danke für die prompten Anregungen.
Schönen Gruß