Listbox StringGrid vergleich!

[thiagojonas]

Hallo Leute,
mit folgendem Code vergeleiche eine Listbox mit einer StringGrid:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var Txt2Find : String;
    Index    : Integer;

 function GetGrid2Index(Grid:TStringGrid;Txt2Find:String):Integer;
 var i : Integer;
 begin
  Result:=-1;
  with Grid do
   for i:=FixedRows to RowCount-1 do
    if (form11.flights_dg.Cells[0,i]= Txt2Find) then begin 
     Result:=i;
     Break;
     end;
   end;

begin
  Txt2Find:= air_list.items[air_list.ItemIndex]; // Erhält den Wert von der markierten Zeile der Listbox, GEHT DAS SO ???
  Index   := GetGrid2Index(form11.flights_dg,Txt2Find);
  if Index > -1 then
   form11.flights_dg.Cells[6,Index] := FormatDateTime('hh:mm',now);

end;

Es wir leider kein Wert eingetragen, was mache ich falsch?

[DeddyH]

Wieso übergibst Du das Grid als Parameter und vergleichst dann mit einem konstant vorgegebenen Grid?

[thiagojonas]

Naja also ich habe vorher einen eintrag in die Stringgrid gemacht.

StringGrid Spalte(Name)

___________________________

Hans
Dieter
Peter



Listbox
___________________________

Hans
Dieter
Peter

Beim Klicken des Buttons soll die aktuelle Zeit in eine zweite Spalte in die StringGrid eingetragen werden.

also...

StringGrid Spalte(Name)

___________________________

Hans
Dieter ---------------------------------------- 20:01 -- Wenn ich halt in der Listbox Dieter auswähle
Peter


Beim vergleichen von zwei StringGrids würde ich für TxtFind folgendes einsetzten, und so gehts auch dann.
Txt2Find:=air_dg.Cells[0,air_dg.Row];

[DeddyH]

Nochmal:

Zitat:

Delphi-Quellcode:

with Grid do //hier das übergebene Grid
   for i:=FixedRows to RowCount-1 do
    if (form11.flights_dg.Cells[0,i]= Txt2Find) then begin //und hier ein Grid auf Form11?

Sieht für mich sinnfrei aus.

[thiagojonas]

Ich verstehe nicht was da sinnfrei, die funktion bewirkt, dass die Spalte der Stringgrid duchlaufen wird, und wenn de makierte Wert der Listbox dem Wert der StringGrid entspricht(die Wertt sind ja gleich), dann wir in der Zeile der StringGrid, wo dieser Wert gleich ist, die Zeit eingefügt.

[DeddyH]

Delphi-Quellcode:

for i:=Grid.FixedRows to Grid.RowCount-1 do
    if (Grid.Cells[0,i]= 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.

[thiagojonas]

Ja es wäre nicht so kompliziert, aber worum es mit geht, dass die makierte Zeile in der Listbox TxtFind zugeordnet wird. Und ich wollte fragen ob das uach so richtig ist, wie ich es gemacht habe, weil bei mir geht es nicht. Danke

[DeddyH]

Ich schau nachher mal.

[thiagojonas]

Thanx

[DeddyH]

Bis dahin kannst Du FixedRows und RowCount mal spaßeshalber in FixedCols und ColCount ändern.