Discussion :

[alll1]

bonjours a toutes et tous,
je suis sous delphi7 et débutant
je cherche une solution pour sélectionné une ligne dans un memo
pas la peine de proposé un richedit a la place merci

mon memo a actuellement 350 lignes de codes hexadécimal
je cherche donc a sélectionné la ligne 3 par exemple depuis un button


voici ou j'en suis avec mon codes sans aucun susses puffffff

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure SelectionLine(Memo : TCustomMemo) ;
var
s : integer;
begin
 with Memo do
 begin
if memo1.lines.count -1 then
memo1.count; // la sa conpte toutes les lignes revoie 353
 
 s := Perform(EM_LINEFROMCHAR, SelStart, 2) ;
 SelStart := Perform(EM_LINEINDEX, s, 3) ;
 SelLength := Length(s[s]) ;
 end;
end;

pouvez vous m'aidé ?

voici un bout du code contenu dans mon memo1

:020000040000FA
:1010000050004150464435367046344443442D39EF
:101010005749444531203157494445322032000078
:101020000000000037332046344443442D3900008B
:0C10300000000000000000000000553E21
:1010400014000000000000000100E99206003200D8
:101050004450563030323030303035303035353025
:10106000303630000B417072734D31302E73205288
:101070007854780046355A4A2056303600323320AC
:0A1080006A616E2E20323031370015

je doit ignoré les deux point ':' et sélectionné la ligne
mettre en surbrillance la ligne sélectionné mais la pas gagné avec higligth ?

cordialement

[Invité]

Essaie ce code
Attention l'indice du memo commence à partir de 0 donc pour chercher la ligne 3 il faut indiquer 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
 nChar, nLine : integer;
begin
  nLine := 2;
  nChar := Memo1.Perform(EM_LINEINDEX, nLine, 0) ;
  if nChar <> -1 then
  begin
      Memo1.SelStart:= nChar + 1;
      Memo1.SelLength := Memo1.Perform(EM_LINELENGTH, nChar, 0) -1;
      Memo1.SetFocus;
  end;
end;

[alll1]

bonjours rMist2024,
bravos du premier coup correspond pilepoil a mon besoin
donc résolut félicitations


cordialement

Essaie ce code
Attention l'indice du memo commence à partir de 0 donc pour chercher la ligne 3 il faut indiquer 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
 nChar, nLine : integer;
begin
  nLine := 2;
  nChar := Memo1.Perform(EM_LINEINDEX, nLine, 0) ;
  if nChar <> -1 then
  begin
      Memo1.SelStart:= nChar + 1;
      Memo1.SelLength := Memo1.Perform(EM_LINELENGTH, nChar, 0) -1;
      Memo1.SetFocus;
  end;
end;