Memo in Variable

[Sir Rufo]

@Perlsau

Evtl. ja doch ... mal wörtlich die Anforderung umgesetzt:

Delphi-Quellcode:

var
  LMemo : TMemo;
begin
  // Memo in Variable packen
  LMemo := Memo1;
  // nutzen um anderes Memo mit dem Inhalt füllen
  Memo2.Lines.Assign( LMemo.Lines );
  // alternativ geht auch
  Memo2.Lines := LMemo.Lines;
end;

es geht natürlich auch kürzer

Delphi-Quellcode:

Memo2.Lines := Memo1.Lines;

Wenn eh nur der Inhalt interessant ist, dann wäre auch denkbar

Delphi-Quellcode:

var
  LStrings : TStrings;
begin
  LStrings := TStringList.Create;
  try
    LStrings.Assign( Memo1.Lines );
    Memo2.Lines := LStrings;
  finally
    LStrings.Free;
  end;
end;

Das man der Eigenschaft TMemo.Lines einfach etwas zuweisen (vom Typ TStrings) kann, liegt am Setter

Delphi-Quellcode:

procedure TCustomMemo.SetLines( Value : TStrings );
begin
  FLines.Assign( Value );
end;