If Abrage verhält sich komisch?

[OrNEC]

Hallo Jungs, ich hab ein Problem. Sieht euch mal diesen Code an:

Delphi-Quellcode:

const
  urlplan: array[0..3] of String = (
  '',
  'http://domain.de',
  'http://domain2.de',
  '');

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if urlplan[ComboBox1.ItemIndex]='' then  
ShowMessage('leer') else ShowMessage('voll');
end;

Also egal was die arrays beinhalten bekomme ich die Message "voll", obwohl etliche arrays leer sind. Ich verstehe nicht wieso funktioniert diese Abfrage nicht?

Danke!

[FrankJ28]

Hallo,
an dem CodeSchnipsel ist leider nicht zu erkennen, welchen Wert ItemIndex deiner ComboBox hat. Ist das etwas ausgewählt? Wenn nein, ist ItemIndex -1. Scheu doch einmal durch den Debugger auf wen Wert deines ItemIndex (oder mach 'ne Ausgabe via ShowMessage).
Ciao
Frank

[OrNEC]

Also an dem "ComboBox1.ItemIndex" liegt es nicht, die Werte sind richtig, also von 0 bis 3, je nach dem was ich auswähle.

Wenn ich aber ein array mit einem Wert fülle ich diesen dann abfragen, klappt das auch, also wie folgt:

Delphi-Quellcode:

const
  urlplan: array[0..3] of String = (
  '',
  'http://domain.de',
  'http://domain2.de',
  'hallo');

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if urlplan[ComboBox1.ItemIndex]='hallo' then 
ShowMessage('leer') else ShowMessage('voll');
end;

[alfold]

entweder stehen in deiner Combobox nicht die gleichen strings drin, denn es funktioniert ohne Probleme!
Wie und mit was füllst du denn die Combobox?

Gruss alfold

[OrNEC]

Jah... also es hört sich lächerlich an, aber jetzt geht's auf ein Mal.
Keine Ahnunug woran es lag, vllt hat meine Delphi IDE nen Bug oder so....

Aber danke euch!

[himitsu]

Zitat von OrNEC:

Keine Ahnunug woran es lag, vllt hat meine Delphi IDE nen Bug oder so....

Wenn kein Item in der ComboBox ausgewählt ist, dann steht ItemIndex auf -1 und greift demnach auf etwas zu, welches vor deinem Array liegt.

Schalte zukünftig einfach mal die Bereichs- und Überlaufprüfung in den Projektoptionen an.

[WM_CLOSE]

er meinte ein paar posts weiter oben, dass die Indizes stimmen

[OrNEC]

Ja die Indizes haben immer gestimmt.

[p80286]

Zitat von OrNEC:

Delphi-Quellcode:

const
  urlplan: array[0..3] of String = (
  '',
  'http://domain.de',
  'http://domain2.de',
  '');

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if urlplan[ComboBox1.ItemIndex]='' then  
ShowMessage('leer') else ShowMessage('voll');
end;

Also egal was die arrays beinhalten bekomme ich die Message "voll", obwohl etliche arrays leer sind. Ich verstehe nicht wieso funktioniert diese Abfrage nicht?

Also ich sehe hier nur ein Array!
Und an Wunder glaube ich erst recht nicht. Was sagt denn die Bereichsüberprüfung?
(und mein Freund der Debugger?)

Gruß
K-H

[OrNEC]

Jah.. ich hab mehrere Arrays, wollte sie nicht alle hier her kopieren. Hab hier natürlich die Strings gemeint, pardo.
Na ja... egal, es läuft.