Accueil > Manip’s > Delphi > Mémos > GetRow et GetCol

GetRow et GetCol

samedi 7 décembre 2013, par bluegyn_spip

procedure TForm1.Memo1Click(Sender: TObject);
    var
      TAB: TstringList;
    begin
      StatusBar1.Panels[0].text := IntToStr(Memo_GetRow(Memo1));
      StatusBar1.Panels[1].text := IntToStr(Memo_GetCol(Memo1));

      TAB := TstringList.Create;
      try
        TAB.DelimitedText := Memo1.Lines[Memo_GetRow(Memo1)];
        Memo_TMP.Lines.Assign(TAB);
      finally
        TAB.Free;
      end;

    end;

GET ROW

function Memo_GetRow(myMEMO: Tmemo): integer;
    { Retourne le Numéro de la ligne pointée }
    Begin
      Result := SendMessage(myMEMO.Handle, EM_LineFromChar, myMEMO.SelStart, 0);
    End;

GET COL

function Memo_GetCol(myMEMO: Tmemo): integer;
    begin
      Result := myMemo.CaretPos.X + 1;
    end;

GetRow et GetCol

GET ROW

GET COL

Manip’s

Dans la même rubrique