StringGrid vergleichen!

[thiagojonas]

Zitat von taaktaak:

Zitat:

Der Wert wird einfach in die Spalte an erster Stelle gesetzt, nicht in der Reihe wo die Nummer identisch sind!

Das sollte eigentlich nicht der Fall sein! Dafür wird in der lokalen Funktion der Zeilenindex des zweiten Stringgrids ermittelt.

Falls du es noch nicht selbst gefunden hast -
Die schließende Klammer nach "Txt2Find" darf da natürlich nicht hin und muss gelöscht werden:
if Cells[1,i]=Txt2Find) then begin

Hi klar habe ich gefunden! Hier der Code:

Delphi-Quellcode:

procedure TForm1.land_btnClick(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 (fligths_dg.Cells[1,i]= Txt2Find) then begin
          Result:=i; 
          Break; 
          end; 
  end;

begin
  Txt2Find:=air_dg.Cells[1,air_dg.Row];
  Index   :=GetGrid2Index(fligths_dg,Txt2Find);
  if Index>-1 then fligths_dg.Cells[6,Index] := FormatDateTime('hh:mm',now);
end;