Listbox StringGrid vergleich!

[thiagojonas]

Oki

[DeddyH]

Vergiss das Letzte, das war Blödsinn. Ich habe die Funktion mal etwas aufgebohrt:

Delphi-Quellcode:

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;
  while (iIndex < Grid.RowCount) and (Result < 0) do
    begin
      if AnsiSameStr(Grid.Cells[ColIndex,iIndex],Txt2Find) or
        (CaseInsensitive and AnsiSameText(Grid.Cells[ColIndex,iIndex],Txt2Find)) then
        Result := iIndex;
      Inc(iIndex);
    end;
end;

Damit hat es bei mir wunderbar funktioniert.

[thiagojonas]

also so dann?

[delphi]
function GetRowIndex(const Grid: TStringGrid;
const Txt2Find: string;
ColIndex: Integer;
CaseInsensitive: Boolean = True): integer;
var iIndex: Integer;
begin
Result := -1;
iIndex := Grid.FixedRows;
while (iIndex < Grid.RowCount) and (Result < 0) do
begin
if AnsiSameStr(Grid.Cells[ColIndex,iIndex],Txt2Find) or
(CaseInsensitive and AnsiSameText(Grid.Cells[ColIndex,iIndex],Txt2Find)) then
Result := iIndex;
Inc(iIndex);
end;
end;
// und was muss ich hier einfügen, damit der makierte Wert der Listbox rüber in die Stringgrid kommt?
Kannst du mal deiner Version mir posten?
Danke, bin beim training, um 9 wieder da

[DeddyH]

Hier ist der Code, mit dem ich vergleiche (sgSearch ist meine StringGrid und lbSearch meine Listbox):

Delphi-Quellcode:

procedure TfrmMain.btnAuswahlClick(Sender: TObject);
var iIndex: Integer;
begin
  if lbSearch.ItemIndex > -1 then
    begin
      iIndex := GetRowIndex(sgSearch,lbSearch.Items[lbSearch.ItemIndex],sgSearch.FixedCols);
      if iIndex > -1 then
        sgSearch.Cells[2,iIndex] := FormatDateTime('hh:nn',Now);
    end;
end;

[thiagojonas]

komisch, bei mir will es einfach nicht klappen. Ich lasse meine die daten gleichzeitig in eine DBGrid speichern, und die werden zeitgleich in die stringgrid angezeigt. auch wenn ich einen neuen datensatz hinzufüge, wird der stringgrid einen neue zeile hinzugefügt. ohne probleme. Also kann es eigentlich daran nicht liegen oder?

[thiagojonas]

Egal funktioniert doch HAt sich also erledigt. Vielen Dank nochmal.
Kurze Frage noch ich ahbe ja daten in die stringgrid dadurch eingefügt, aber nicht in die DBGrid. Gibt es eine refresh funktion, die die daten der stringgrid in die dbgrid bringt und sie dann dort auch speichert?

[mkinzler]

Das wirst du manuell erledigen müssen

[thiagojonas]

Mist, das hatte ich schon befürchtet, egal was solls!