Delphi-Quellcode:
var
i: Integer;
leer:Integer;
begin
....
leer:=-1;
i:=low(datenfeld);
while (leer < 0) and (i <= high(datenfeld)) do
begin
if datenfeld[i].clanname = '' then // <- etwas geändert
leer:=i;
inc(i);
end;
if leer = -1 then
ShowMessage('keine leere Stelle gefunden')
else
ShowMessage('leere Stelle liegt an Position'+ IntToStr(leer));
....
end;
Funktionert aber auch nur dann wenn der clanname wirklich nichts enthält.
Oder was ist Dein Kriterium um zu sehen, daß das Datenfeld leer ist?
Grüße
Klaus