Zeilenblock in Memo einfügen...

[MadMax4525]

Hallo,
ich hätte gerne gewusst wie ich einen ganzen Zeilenblock an bestimmter Stelle in ein anderes Memo einfüge???

Also

Memo1.Lines.AddStrings(Memo2.Lines); und der Block in Memo2 soll an erster Stelle in Memo1 in dem schon Sätze vorhanden sind!!!

Danke für die Hilfe
MfG
Christian

[Binärbaum]

Vielleicht so:

Delphi-Quellcode:

var sl: TStrings;
begin
 sl:= TStrings.Create;
 sl.AddStrings(Memo1.Lines);
 sl.AddStrings(Memo2.Lines);
 Memo1.Clear;
 Memo1.AddStrings(sl);
 sl.Free;
end;

(ungetestet)

MfG
Binärbaum

[Sprint]

Zitat von MadMax4525:

und der Block in Memo2 soll an erster Stelle in Memo1 in dem schon Sätze vorhanden sind!

Memo1.Lines.Insert(0, Memo2.Text);

[MadMax4525]

Sorry...
aber das geht nicht Memo1 ist in Form 15 und Memo2 in Form1, un der sagt "Abstrakter Fehler"!!!

MfG
christian

[Binärbaum]

Zitat von MadMax4525:

Sorry...
aber das geht nicht Memo1 ist in Form 15 und Memo2 in Form1, un der sagt "Abstrakter Fehler"!!!

Da musst du die Unit von Form1 in die uses-Klausel der Unit von Form15 eintragen. Dann sollte es auch funktionieren.
(Dabei muss man dann im Quelltext Form1.Memo2 statt Memo2 schreiben, damit Delphi weiß, in welcher Form/ Unit das Memo ist.)

MfG
Binärbaum

[4toms]

Sollte auch bei einem TMemo klappen:

Delphi-Quellcode:

procedure TMainForm.actEditInsertFileExecute(Sender: TObject);
var
  InsertFile: TStringList;
begin
  InsertFile := TStringList.Create;
  if OpenDialog4.Execute then
  begin
    InsertFile.LoadFromFile(OpenDialog4.FileName);
    RichEdit1.SelText := InsertFile.Text;
  end;
  InsertFile.Free;
end;

Edit: Delphi-Tags (nachträglich hoffentlich richtig) gesetzt.

[Quake]

Es sollte auch so :
Form15.Memo1.Text:=Form2.Memo2.Text + Form15.Memo1.Text; funktionieren.