skrive til Memo

1) procedure TForm1.Button1Click(Sender: TObject)
begin
  Memo1.Lines.Add('Hej med dig');
end;

Dette tilføjer "Hej med dig" til Memo'et som en ny linie.

2) Så skal du nok have fat i en subclassing af TMemo, og override Paint-proceduren...kan ikke huske hvordan man gør, men det er ikke helt nemt. Der står en del om det i Delphi's hjælp-filer.

2) Du skal skifte din Memo ud med en Richedit.

procedure Highlightword(Richedit: TRichEdit; Ord: string);
var
  i: integer;
  text: string;
begin
  text := Richedit.Lines.text;

  Richedit.SelStart := 0;
  Richedit.SelLength := length(text);
  Richedit.SelAttributes.Color := clWindowText;

  for I := 0 to length(text) do
    if copy(text, I, length(Ord)) = Ord then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(ord);
      Richedit.SelAttributes.Color := clred;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Highlightword(RichEdit1, 'hej');
end;