Mehrere Text-Dateien in ein TMemo?

[mlspider]

Wie kann ich mit einen Klick gleich mehrere einzeilige Text-Dateien in ein TMemo laden?

[Christian Seehase]

Moin mlspider,

wenn Du die Dateien nach und nach in eine TStringList einliest, und mit AddStrings hinzufügst: Ja.

[EDIT]
TStringList muss es bei einzeiligen Dateien nicht sein, geht damit aber wohl am einfachsten.
[/EDIT]

[mlspider]

Moin ist gut!

Könntest Du mir mal nen kleines Code-Beispiel geben?

Danke

[Christian Seehase]

Moin mlspider,

Delphi-Quellcode:

var
  slWork : TStringList;

begin
  slWork := TStringList.Create;
  try
    slWork.LoadFromFile(PfadDerEinzulesendenDatei);
    Memo1.Lines.AddStrings(slWork);
  finally
    FreeAndNil(slWork);
  end;
end;

Bei einzeiligen Dateien genügt auch .Add(slWork.Text);, oder .Add(trim(slWork.Text));
Du musst mal ausprobieren, was bei Dir am Besten passt.

[mlspider]

OK Christian, werd mal schauen ob es klappt.

[mlspider]

Habe jetzt Dein Code eingefügt. Leider immer noch nicht. Der Compiler gibt zurück, daß Memo1 ein undefinierter Bezeichner ist.

[Christian Seehase]

Moin mlspider,

ich kann ja nun nicht wissen, wie Dein Memo heisst.

BTW: Ich verschieb' den Thread mal. Hat nicht wirklich was mit Internet/IP/LAN zu tun ;-)

[mlspider]

Erst mal Danke für's Verschieben. Der Bezeichner war schon richtig: Memo1.

[Christian Seehase]

Moin mlspider,

dann hast Du es in eine normale Prozedur oder Funktion gelegt, und nicht in eine Methode des Formulares.
In diesem Falle musst Du noch das Formular mit angeben, auf dem das Memo liegt.

[mlspider]

So, auch das habe ich getan. Form2.Memo1. Jetzt meckert der Compiler an der Stelle end; end; Erwartet wird aber end. Geht aber nicht, weil es nach diesen Aufruf eine neue Procedure gibt.