SeekRecord

[Sievo]

Hallo alle!

Ich muss aus einer StringGrid Tabelle die Kalenderwoche über eine Suchfunktion anzeigen lassen!

Es klappt auch eigentlich aber nur in der Spalte meine Kalenderwochen sind in der Reihe!
Was mach ich da bloß Falsch!?

Delphi-Quellcode:

 function SeekRecord(stringGrid1: TStringGrid; ColOrder: array of Integer;
  StrList: array of string): Boolean;
begin
  Result := False;
  for I := 1 to stringGrid1.RowCount - 1 do
  begin
    for J := Low(ColOrder) to High(ColOrder) do
    begin
      if (stringGrid1.Cells[ColOrder[J], I] = StrList[J]) then
        Result := True
      else
        Result := False;
      if Result = False then Break;
    end;
    if Result = True then Break;
  end;

  if Result = True then
    stringGrid1.Row := I
  else
    ShowMessage('Datensatz nicht gefunden!' + #13#13 + 'Record not Found!');
end;









procedure TForm1.Button1Click(Sender: TObject);
begin
SeekRecord (stringGrid1, [1], [edit3.text]);
end;