Entwickler-Ecke
Dateizugriff - Text aus einer Textdatei auslesen und ausgeben
Bomania - Sa 15.02.03 17:48
Titel: Text aus einer Textdatei auslesen und ausgeben
Hallo,
ich lese Text aus einer Textdatei folgendermaßen aus:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.Button2Click(Sender: TObject);
var
str1 : TStringlist;
strings: String;
begin
str1 := TStringlist.Create;
str1.Loadfromfile('c:\demo.txt');
strings := str1.text;
str1.free;
mem_Text.Text := strings;
end; |
Ist diese Methode gut so, oder kann man das noch anders/besser machen?
Gruß,
Bo
Delete - Sa 15.02.03 17:57
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.Button2Click(Sender: TObject);
var
str1 : TStringlist;
strings: String;
begin
str1 := TStringlist.Create;
try
str1.Loadfromfile('c:\demo.txt');
strings := str1.text;
finally
str1.free;
end;
mem_Text.Text := strings;
end; |
Bomania - Sa 15.02.03 18:28
Vielen Dank :D
Delete - Sa 15.02.03 18:31
Du könntest die Variable noch einsparen.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!