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

Delphi-Quellcode:

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:

Zitat von MadMax4525

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

Delphi-Quellcode:

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:

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 :

Delphi-Quellcode:

Form15.Memo1.Text:=Form2.Memo2.Text + Form15.Memo1.Text;

funktionieren.