Skjule tomme felter i en array

Hvad kan jeg gøre for at den ikke indsætter de tomme recorder i arrayen, ind i listboxen?

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  ListBox1.Clear;
  SetTheData;
  for i := 0 to Length(mAll) - 1 do
    if mAll[i].mName <> '' then
    begin
      ListBox1.Items.Insert(i,mAll[i].mName);
    end;
  ComID.ItemIndex := ComID.ItemIndex + 1;

end;

Hej.

Jeg har en array[0..100] af en record. Derefter fylder jeg nogle data i min record og indsætter det i arrayen. Nu siger vi at arrayen er fyldt 30 ud af 100, og sætter arrayen ind i en ListBox. Mit problem er at når jeg fylder listboxen op, bliver den ikke kun fyldt med 30, men med 100...
Hvad kan jeg gøre for at den ikke indsætter de tomme recorder i arrayen, ind i listboxen?

the kasperen

Jeg har en array[0..100] af en record

Jeg har en array[0..100] af en record

Er der nogen speciel grund til at du benytter et statisk array (i modsætning til et dynamisk)?

Kode 

type
  TMinRec = record
    mName: string[30];
    mPrice: Currency;
    mInfo: string[255];
  end;

const
  MAXMOB = 50;
  MYFILE = 'mob.txt';

var
  Form1: TForm1;
  mFile: file of TMinRec;
  mAll: array[0..MAXMOB] of TMinRec;
  mData: TMinRec;
  mID: integer;
  mFileName: string;

procedure TForm1.SetTheData;
begin
   mID := ComID.ItemIndex;
   mData.mName := EdName.Text;
   mData.mPrice := StrToFloat(EdPrice.Text);
   mData.mInfo := MemoInfo.Text;

   mAll[mID].mName := mData.mName;
   mAll[mID].mPrice := mData.mPrice;
   mAll[mID].mInfo := mData.mInfo;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  ListBox1.Clear;
  SetTheData;
  for i := 0 to Length(mAll) - 1 do
    begin
      ListBox1.Items.Insert(i,mAll[i].mName);
    end;
  ComID.ItemIndex := ComID.ItemIndex + 1;

end;