Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
21. Okt 2008
Äh..sorry. Ich meine ich vergleichen den Text der Combobox mit der Spalte einer Grid. Wenn Die Werte identisch sind, werden dann in einer anderen Grid weitere Werte eingefügt.
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
Aber da habe ich soch schon ein. Weil ich zwei Grids vergleiche. Es hat auch immer funktioniert. Nur halt jetzt nicht mehr, mit dem Fehler.
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
Okay, also er zeigt mir einen wert von "4412352" an.
An welccher stelle wäre es sinnvoll einen breakpoint zu setzen?
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
:?:
Äh... Wie bitte? Bin kein Profi :-D , wie soll ich den Index Ausgeben? Über ShowMessage?
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
Ja, aber wie gesagt, es werden keine Werte eingefügt, worin liegt das?
Hier dran?
...if Index > -1 then...
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
also so:
if Index>-1 then
begin
if calculate_dg.Cells <> '' then
begin
calculate_dg.RowCount := Succ(calculate_dg.RowCount);
calculate_dg.Cells := form4.StringGrid.Cells;
calculate_dg.Cells := ComboBox.text;
calculate_dg.Cells := form4.StringGrid.Cells;
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
:-D , okay aber dann passiert gar nichts.
Liegt das hier dran?
...if Index > -1 then...
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
Ich denke nicht, dass das hier eine Rolle in meinem Code spielt. Mann kann es auch so prgrammieren, oder? :-D
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
Eine Zeile drunter.
calculate_dg.Cells := form4.StringGrid.Cells;
Forum: Sonstige Fragen zu Delphi
Delphi
by thiagojonas,
20. Okt 2008
Hallo jungs.
Ich kriege hierbei immer eine Fehlermeldung. Das Maximum des Listenindex (-1) wir überschritten.
Was ist hier falsch?
procedure TForm1.start_btnClick(Sender: TObject);
var datum:string;
var Txt2Find : String;
Index : Integer;
function GetGrid2Index(Grid:TStringGrid;Txt2Find:String):Integer;