Zitat:
Wenn die Namen in ihrer Grid-Spalte bereits sortiert sind, dann
die müßten anundfürsich sortiert sein,
ich verwende auch folgenden code, damit wird doch auch sortiert oder nicht?
Delphi-Quellcode:
procedure LocateRow_b(sg: TStringGrid; iCol: Integer; const sText: String);
var
iRow: Integer;
begin
with TStringList.Create do
try
Assign(sg.Cols[iCol]);
Sorted := True;
for iRow := 1 to sg.FixedRows do
Delete(0);
Find(sText, iRow);
sg.Row := iRow + sg.FixedRows;
sg.Col := iCol;
finally
Free;
end;
end;
const
NAME_COL_b = 2;
procedure TForm1.Edit2Change(Sender: TObject);
begin
with Sender as TEdit do
LocateRow_b(StringGrid1, NAME_COL_b, Text);
StringGrid1.TopRow := StringGrid1.Row;
end;
Bekomm auch bei dem Buchstaben
Z folgende Fehlermeldung
Zitat:
Gitterindex außerhalb des zulässigen Bereichs.