Hallo LuckyStrike4life,
Eddy hat
Code:
function [b][color=red]NofStr[/color][/b]( s : string; sarr : array of string) : integer;
mitgegeben, diese Funktion kannst Du z.B. als Unterfunktion in
Delphi-Quellcode:
procedure TFAuf.dbg32DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
function NofStr( s : string; sarr : array of string) : integer;
begin
// NofStr
end;
begin
// dbg32DrawColumnCell
end;
einbinden, möchtest Du sie Global in Deiner
Unit benutzen musst Du sie so deklarieren
Code:
function [b][color=red]TFAuf.[/color][/b]NofStr( s : string; sarr : array of string) : integer;
und z.B. im Unitkopf unter Private bekannt machen.