Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
18. Nov 2005
Ich habe es jetzt mal so gemacht:
procedure SeekRecords(aFixedRows: integer; aCols: TStrings; aKeys: TStrings;
aSeekList: TList);
var
keyindex: integer;
searchindx: integer;
begin
for keyindex := 0 to Pred(aKeys.Count) do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
18. Nov 2005
Hai Alex,
meinst Du das so:
function SeekRecord(aCols: TStrings; aKey: string): integer;
begin
Result := aCols.IndexOf(aKey);
end;
procedure TDemoForm.btn_SeekClick(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
18. Nov 2005
Hai Alex,
die Cols einer StringGrids sind doch vom Type TStrings. Also übergebe einen Parameter von diesem Typ und suche dann mit IndexOf.