StringGridSelectCell Procedure Aufruf-Problem

[Piro]

Moin ich folgende Procedure geschrieben als Ereignis bei einem StringGrid

Delphi-Quellcode:

procedure Tfrm_main.sg_asciiSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 zeichen: string;
begin
 with frm_asciizeichen do
 begin
   if not ((ARow = 10) and (ACol > 12)) then
   begin
     zeichen := sg_ascii.Cells[ACol, ARow];
     lbl_asciizeichen.caption := zeichen;
     lbl_dez.Caption := inttostr(Ord(zeichen[1]));
     lbl_hex.Caption := '0x'+DezToX(StrToInt(inttostr(Ord(zeichen[1]))),16);
     top  := Mouse.CursorPos.Y;
     Left := Mouse.CursorPos.X + 20;
     Show;
   end;
 end;
end;

Nun möchte ich diese Procedure aus einer anderen Procedure (z.B.: Suchen) aufrufen.

Delphi-Quellcode:

procedure Tfrm_main.btn_sucheClick(Sender: TObject);
var
 i,j:integer;
begin
 for i:=0 to sg_ascii.RowCount-1 do
   for j:=0 to sg_ascii.ColCount - 1 do
     if edt_suche.Text = sg_ascii.Cells[j,i] then
        sg_asciiSelectCell(sg_ascii, j, i, True)
     else
       MessageDlg('Es wurde kein Eintrag gefunden.', mtInformation, [mbOK], 0);
end;

Die Fehlermeldung lautet: Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen.
Für mich sind die Parameter aber richtig gesetzt. Sieht einer den Fehler?

Danke im voraus.

Sven

[martin-sun]

hallo,

es gibt einen kleinen fehler beim aufruf:

Delphi-Quellcode:

sg_asciiSelectCell(sg_ascii, j, i, True)

Delphi-Quellcode:

procedure Tfrm_main.sg_asciiSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);

in der deklaration ist der letzte parameter(CanSelect) als var deklariert. d.h. dieser parameter wird nicht als wert sondern als adresse übergeben. heißt im klartext, du musst beim aufruf eine boolean-variable übergeben. einfach nur true reicht nicht.
anschließend sollte es funktionieren.

Delphi-Quellcode:

var BoolParam: Boolean;
begin
   ...
   BoolParam := true;
   sg_asciiSelectCell(sg_ascii, j, i, BoolParam);
   ...

hoffe es hilft.
martin

[Piro]

Danke. hat geholfen.

Sven