Finde et ledigt tal ?

Lasvære med at brug TInifile ... Lav dit eget filformat, med rigtige objecter du streamer ud på din HD !

Jens B

Her er noget der læser en ini-fil og finder første ledige tal.
Formen indeholder 1 button, 1 Editbox og 2 listbox'e.
Husk inifiles under uses.

procedure TForm1.Button1Click(Sender: TObject);
var
ini : TInifile;
i:integer;
begin
  ini := TIniFile.Create('C:\test.ini');  {ini-filen der læses fra }
  ini.ReadSection('CusSet', Listbox1.items);  {læser kun det før = }
  ini.ReadSectionValues('CusSet', Listbox2.items);  {læser hele linjen - eks.}
  i := 0;                                         
  while i <= Listbox1.items.count do
  begin
    If (i <> StrToInt(Listbox1.items[i])) then
    begin
      Edit1.text := 'Første ledige nr er: '+IntToStr(i);
      Break;
    end;
    inc(i);
  end;
  ini.Free;
end;

Du kan naturligvis bruge en TStringList i stedet for listbox'en hvis du ikke skal se indholdet af ini-filen.

Hvorfor hive det over i en TStringList, når det kan gøres nemmere uden?

uses
  IniFiles;

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile: TIniFile;
  I: Integer;
begin
  IniFile := TIniFile.Create('c:\test.ini');
  try
    I := 0;
    while IniFile.ValueExists('CusSet', IntToStr(I)) do
      Inc(I);
    ShowMessage(IntToStr(I) + ' findes ikke!');
  finally
    IniFile.Free;
  end;
end;

I får begge point, men det var athlon-pascal's svar der var lige det jeg søgte...

Tak til begge to