Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#10

Re: prüfen, ob etwas im array steht

  Alt 20. Dez 2004, 13:54
Also bei mir geht das so ohne Probleme:
Delphi-Quellcode:
var
  myArray : Array [1..10] of String;

procedure TForm1.FormCreate(Sender: TObject);
begin
  myArray[1] := 'blubb';
  myArray[3] := 'blubb';
  myArray[5] := 'blubb';
  myArray[7] := 'blubb';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := Low(myArray) to High (myArray) do
  begin
    if (Length(myArray[ndx]) = 0 ) then
    begin
      ShowMessage (Format('Eintrag %d ist leer',[ndx]));
    end;
  end;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat