SeekRecord

[Klaus01]

Guten Abend,


wenn Deine Kalenderwoche in einer Reihe angeordnet ist,
dann solltest Du auch die Spalten der Reihe durchsuchen und nicht eine Spalte
in allen Reihen.

Grüße
Klaus

Delphi-Quellcode:

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

  if Result then
    stringGrid1.Row := I  // hier solltest Du bedenken, dass I nach Beendingug 
                          //der For Schleife undefiniert ist.
  else
    ShowMessage('Datensatz nicht gefunden!' + #13#13 + 'Record not Found!');
end;