Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gfjs,
26. Aug 2008
@ mkinzler
Bezwecken wollte ich damit nichts, ich wollte nur einen von mehreren möglichen Fällen abdecken. Der Grund ist eine Prozedur, der ein zu bearbeitendes Memo, der auszugebende Text und die Größe des Memos übergeben wird. Daraus wird dann die maximal mögliche Schriftgröße berechnet.
procedure SetFontSize(Memo : TMemo, Strings : TStrings; h, w : integer);
Dort wollte ich als...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gfjs,
26. Aug 2008
Hallo, Allerseits.
Warum führt die Zuweisung Memo1.Lines := Meno1.Lines dazu, dass die Strings im Memo verschwunden sind?
procedure TForm1.Button3Click(Sender: TObject);
var
str : TStrings;
begin
ShowMessage(Memo1.Lines);
Memo1.Lines := Memo1.Lines; ShowMessage('Memo: '+Memo1.Lines);