Texte aus .txt auslesen aber nur eine bestimmte Zeile

[shmia]

Unter Unix gibt es ein Programm namens tail.
Damit kann man die letzten x Zeilen einer beliebig grossen Datei abrufen.
Selbst wenn die Datei viele Gigabyte hat, geht das in Null komma nix.
Das funktioniert so:
Man öffnet die Datei, springt ans Ende und dann 4 kByte zurück und liest diesen 4kByte Block ein.
Dann braucht man nur noch im Block rückwärts die Zeilenumbrüche zu zählen.
Sollte in dem Block nicht genügend Zeilenumbrüche vorhanden sein, liest man solange einen weiteren Block ein, bis die Anzahl der Zeilenumbrüche vorhanden ist.

> Für TextFiles findest Du TextSeek hier.
Das taugt nicht für Windows. Es werden INT 21 Aufrufe verwendet.

[taktaky]

Hallo zusammen und Danke für die Erklärung!

nun möchte ich auch mit dem Befehl loadformfile ausprobieren.
ich bekomme diese Meldung Undeclared loadformfile . Was soll ich in Bereich uses schreiben?

Delphi-Quellcode:

uses, ...?

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFormFile('test.txt');
end;
end.

[DeddyH]

Form und From verwechsel ich auch gerne mal

[pstruh]

Moin, Moin,
@Klaus: Ist dass jetzt (ein gelungener!) Scherz? Der Link ist ja wirklich interessant, aber welche Sprach ist das? Russisch?
Gruß

[taktaky]

Zitat von DeddyH:

Form und From verwechsel ich auch gerne mal

Danke, ich hab's versehen

Delphi-Quellcode:

 _____    _____    _   _   _____   _____  
/  ___| |  _  \  | | | | /  ___/ /  ___/ 
| |     | |_| |  | | | | | |___  | |___  
| |  _  |  _  /  | | | | \___  \ \___  \ 
| |_| | | | \ \  | |_| |  ___| |  ___| | 
\_____/ |_|  \_\ \_____/ /_____/ /_____/

[taktaky]

Zitat von pstruh:

Moin, Moin,
@Klaus: Ist dass jetzt (ein gelungener!) Scherz? Der Link ist ja wirklich interessant, aber welche Sprach ist das? Russisch?
Gruß

Kennst kein Russisch?
hier ist die Übersetzung :

Delphi-Quellcode:

From: Alexeev Vlad < 
[email][e-mail][/email] > Subject: Position in the text- 
sirloin! Date: 12 Jul 1994 05:09:38 -0000 organization: 
Ugtu-upi > how do you do. Privetik! > arose 
problemka: > necessary to be moved in the text file from 
programki on TP > for reading of the lines > necessary at the given 
moment to make this necessarily without closing of file > moreover 
Seek there not working: ( > someone can advise? But your 
poblemka exists already long ago, here module for its solution... 
With respect Vlad. --- Alexeev Vlad e-burg.su;

[taktaky]

bei memo und Listbox funktioniert super

aber so geht nicht
"Edit1.Text.LoadFromFile('test.txt');" wieso?

[Klaus01]

Hast Du schon mal die Hilfe zu Rate gezogen und geschaut was für ein Typ TEdit.text ist.
Dann solltest Du dir Deine Frage selber beantworten können.

Grüße
Klaus

[taktaky]

Hallo

die einfache Lösung ist so :

Delphi-Quellcode:

var aStringList : TStrings;
begin
aStringList := TStringList.Create();  
aStringList.LoadFromFile('test.txt');
Edit1.Text := aStringList[2]; 
end;
end.

[silver-moon-2000]

Zitat von taktaky:

Hallo

die einfache Lösung ist so :

Delphi-Quellcode:

var aStringList : TStrings;
begin
aStringList := TStringList.Create();  
aStringList.LoadFromFile('test.txt');
Edit1.Text := aStringList[2]; 
end;
end.

Ein kleiner Hinweis am Rande:

Zu jedem .Create gehört ein .Free.
Schreib also viuelleicvht einfach noch ganz ans Ende:
aStringlist.Free