Letzte zeile einer txt datei als label caption

[Gast_1]

löschen löschen löschen

[Christian Seehase]

Hallo Sascha,<br>
<br>
meinst Du (z.B)<br>
Label11.Caption := S[S.Count-1];<br>
oder ähnlich?<br>
<br>
Übrigens wäre ein Resourcenschutzblock ganz sinnvoll.<br>
<br>
try<br>
S := TStringList.Create;<br>
finally<br>
FreeAndNil(S);<br>
end;<br>
<br>
Ciao<br>
Chri

[Christian Seehase]

Hallo Sascha,<br>
<br>
und die kannst Du, nachdem Du die Datei mit S.LoadFromFile(...) eingelesen hast mit Labelxx.Caption := S[S.Count-1] zuweisen.<br>
Wäre allerdings sinnvoll vorher zu testen, das S.Count > 0 ist, sonst gibt's eine Exception.<br>
Wie schon gesagt: Denk bloss dran S mit S.Free oder FreeAndNil(S) immer wieder freizugeben, bevor Du es neu erzeugst,<br>
sonst müllst Du Dir den Speicher zu.<br>
Sinnvoll wäre es erst S := TStringList.Create, dann alle erforderlichen Schritte (also ALLE LoadFromFile usw.)<br>
und dann, zu Schluss wieder freigeben.<br>
Um auf Nummer sicher zu gehen, kannst Du ja vor dem Einlesen der Datei S mit S.Clear inhaltlich löschen.<br>
<br>
Ciao<br>
Chri