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?