Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Nov 2008
Hier ist der Code, mit dem ich vergleiche (sgSearch ist meine StringGrid und lbSearch meine Listbox):procedure TfrmMain.btnAuswahlClick(Sender: TObject);
var iIndex: Integer;
begin
if lbSearch.ItemIndex > -1 then
begin
iIndex := GetRowIndex(sgSearch,lbSearch.Items,sgSearch.FixedCols);
if iIndex > -1 then
sgSearch.Cells := FormatDateTime('hh:nn',Now);
end;...
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Nov 2008
Vergiss das Letzte, das war Blödsinn. Ich habe die Funktion mal etwas aufgebohrt:uses StrUtils;
function GetRowIndex(const Grid: TStringGrid;
const Txt2Find: string;
ColIndex: Integer;
CaseInsensitive: Boolean = True): integer;
var iIndex: Integer;
begin
Result := -1;
iIndex := Grid.FixedRows;
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Nov 2008
Bis dahin kannst Du FixedRows und RowCount mal spaßeshalber in FixedCols und ColCount ändern.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Nov 2008
for i:=Grid.FixedRows to Grid.RowCount-1 do
if (Grid.Cells= Txt2Find) then begin
Wäre das so nicht sinnvoller? Sonst könntest Du Dir den Parameter auch sparen. Zu den Feinheiten komme ich jetzt nicht mehr, da gleich Feierabend. Ich kann aber nach 17:30 zu Hause nochmal nachsehen, was da evtl. schiefläuft.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Nov 2008
Nochmal:
Sieht für mich sinnfrei aus.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
25. Nov 2008
Wieso übergibst Du das Grid als Parameter und vergleichst dann mit einem konstant vorgegebenen Grid?