Skriv til Memo

Du kan bruge Memo1.Lines[0]:= 'Din tekst';

da jeg ikke sidder foran delphi kan jeg ikke huske om text probertyen er memo1.text eller memo.lines.text

var
  tmp : string;
begin
  tmp := memo1.lines.text;
  tmp := 'TEKST bla bla' + #13#10+tmp;
  memo1.lines.text := tmp;
end;

/Klaus

assasin du sletter jo linie 1(0) så skal du jo flytte alle linierne først

Ja, det har jeg lige fundet ud af :-)

loke-liscom > Tak for hjælpen

Det var så lidt.... skulle det være en anden gang.. :-)

Kig på memo1.lines.insert(), sidder ikke lige med Delphi.

Det ville nok være en god idé hegaard, findes der en funktion der hedder insert(); så burde du nok bruge den. min kode tager ikke lige højde for selection og position i memo'en. Men okay det er nok også mere relevant i en listbox da det er skide irrerterrende når selection'en forsvinder eller sen scroller op i toppen.

/klaus

ups sen=den

athlon-pascal og e-liscom > Hvordan bruger man memo1.lines.insert() ??

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Insert(0,'Denne linie er indsat øvert i memo1');
end;

Stoney