StringGrid vergleichen!

[thiagojonas]

Ich habe eine FixedRow,spielt das eine Rolle?

[taaktaak]

Tja, und nun?
Ich stelle fest, dass das Programm nicht anforderungsgemäß funktioniert.
Ohne den kompletten Source kann ich dir nix dazu sagen :|
Also, wenn du's nicht selbst auflösen kannst, dann musst du uns den mal zur Verfügung stellen - anders geht das nicht.

[thiagojonas]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    air_dg: TStringGrid;
    fligths_dg: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    flugnummer: integer;
    function getFlugNummer: string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.getFlugNummer: string;
begin
    result := format('%3.3d',[flugnummer + 1]);
end;

procedure TForm1.Button1Click(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[5,Index] := FormatDateTime('hh:mm',now);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if air_dg.Cells[air_dg.FixedCols,Pred(air_dg.RowCount)] <> '' then
    air_dg.RowCount := Succ(air_dg.RowCount);
    air_dg.Cells[air_dg.FixedCols,Pred(air_dg.RowCount)] :=  getFlugNummer;
    air_dg.Cells[1,Pred(air_dg.RowCount)] :=  'Hallo';
    air_dg.Cells[2,Pred(air_dg.RowCount)] :=  'Rainer';
    air_dg.Cells[3,Pred(air_dg.RowCount)] :=  'Horst';

 if fligths_dg.Cells[fligths_dg.FixedCols,Pred(fligths_dg.RowCount)] <> '' then
    fligths_dg.RowCount := Succ(fligths_dg.RowCount);
    fligths_dg.Cells[fligths_dg.FixedCols,Pred(fligths_dg.RowCount)] :=  getFlugNummer;
    fligths_dg.Cells[1,Pred(fligths_dg.RowCount)] :=  'Hallo';
    fligths_dg.Cells[2,Pred(fligths_dg.RowCount)] :=  'Rainer';
    fligths_dg.Cells[3,Pred(fligths_dg.RowCount)] :=  'Horst';
    fligths_dg.Cells[4,Pred(fligths_dg.RowCount)] :=  FormatDateTime('hh:mm',now);
    fligths_dg.Cells[6,Pred(fligths_dg.RowCount)] :=  '';
    
  inc(flugnummer);
end;

end.

Meinst Du den? :-D

[taaktaak]

Joo, ich schau mir das nachher mal an

[thiagojonas]

Danke! :-D

[taaktaak]

So,
wenn ich das richtig erfasst habe, dann ist der eigentliche Code schon OK. Deine Testdaten waren nicht geeignet: Es wird immer die Spalte 1 (das ist die ZWEITE, da Zählung bei 0 beginnt) verglichen; da steht bei dir immer nur HALLO drin - für den Test also ungeeignet. Habe das mal ein bisschen anders gemacht. Anbei Source in schlimmer Fomatierung.

[thiagojonas]

Super Danke das wars!:-)