Den ganzen Text der TXT 2 Memo

Gast Erhaltene Danke: 1

Hi

Ich habe eine große TXT in der auch viele Leerzeichen hintereinander sind. Diese TXT möchte ich in einem Memo. Ich hab 2 wege probiert:
Einmal "memo1.lines.loadfromfile()" und dann diese noch:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
f:textfile;
s:string;
begin
assignfile(f,extractfilepath(paramstr(0))+'z\kp.txt');
reset(f);
readln(f, s);
form4.Memo1.Text:=s;
closefile(f);

Ich hatte auch stat readln() mal read()

Aber der Text im Memo ist nie größer als bis zur ersten Reihe von den vielen Leerzeichen.
Wie kriege ich den ganzen Text ins Memo rein?

CIAO

Millo · Beiträge: 147

Moin,

ich weiss zwar nicht wie ich mir das vorstellen soll aber hast du mal die Scrollbars aktiviert manchmal ist der Text nicht so wie in der .txt Datei im Memo.

Sonst sollte es eigentlich mit LoadFromFile funktionieren.

Ehemaliges Mitglied Erhaltene Danke: 1

Es sei denn im Text taucht irgendwo #0 auf dann ist Schluß auch wenn es noch weiterget in der Datei, dann ist es aber auch keine reine Textdatei.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme