Memo.SelStart

memo1.SelStart := 0;
  memo1.SelLength := length(memo1.lines[0]);

"SelStart" sættes til hvor selection'en skal starte og
"SelLength" sættes til hvor lang selection'en skal være
(i dette tilfælde længden af den øverste linie)

Hej hmann,
det fik jeg ikke lige fat i!

Gengiver koden (er ret lang):

procedure TForm1.bRimHClick(Sender: TObject);
var
  Ind                  : TextFile;
  HeltOrd, Lin, DelLin : string;
  Len                  : Byte;
  Match                : Boolean;

begin
  Memo1.Clear;
  Memo1.Font.Name := 'Arial';
  Memo1.Font.Size := 10;
  HeltOrd := Edit2.Text;
  Len := Length(HeltOrd);
  Match := False;
  AssignFile(Ind,TxtFil);
  Reset(Ind);
  while not Eof(Ind) do begin
    Readln(Ind,Lin);
    DelLin := COPY(Lin,Length(Lin)-Len+1,Len);
    if (pos(HeltOrd,Lin) > 0) AND
        (DelLin = HeltOrd) then begin
        Memo1.Lines.Add(Lin);
        Match := TRUE;
    end;
  end;
  CloseFile(Ind);
  { Her kunne jeg tænke mig, at Memo.SelStart eller anden procedure
    placeres; men hvad er koden til det? Altså, at 1. linie i Memo1
    vises. }
  if not Match then
    Memo1.Lines.Add('Ingen match på det søgte hele ord...');
end;

"1. linie i Memo1 vises"?
skal alle linier ikke vises - men den øverste skal være "markeret" ?
det var sådan jeg forstod dit spørgsmål... og hvis det er sådan skal du bare bruge koden jeg skrev ovenfor :)

koden:
if Memo1.Lines.Count > 0 then
begin
  Memo1.SelStart  := 0;
  Memo1.SelLength := length(memo1.lines[0]);
end;

Hej hmann,
accepterer dit svar;
men kan ikke give dig point.

Der kommer ingen muligheder
for at give dig points!

Du må på igen! jaweni

prøver igen med et svar :-)

Når jeg er logget ind, så får jeg ingen
muligheder mht. at give dig point.

De eneste valgmuligheder jeg har er:

Kommentar
Svar
Abonnér

jaweni

det går nok.. bare du fik det til at virke :)

øøhh måske er det fordi det ikke er dig som har oprettet spørgsmålet??
eller i hvert fald ikke med samme bruger?
det er "juwain03"-brugeren som har oprettet dette spørgsmål..

Hej hmann, selvfølgelig!
Det havde jeg glemt!
jaweni