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