Ошибка при компилировании IniFile

[villain10]

Доброго времени суток.

Есть программа-тестовик, все вопросы и ответы лежат ini файле. При компилировании выдает такую ошибку:



а конкретнее в этой части кода:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  dir:=GetCurrentDir;
  ss:=dir + '\comp.ini';
  zz:=ss;
  start();
end;

Может кто сталкивался с такой проблемой?

P.S. прикрепил исходники проги

[Аватар]

И ошибка не компиляции, а времени выполнения. Где-то StrToInt пытается строку указанную в сообщении в Integer перевести

[villain10]

так эти переменные у меня типа string

[Пепел Феникса]

а вы сами не видете что пишете в ss?

[villain10]

к примеру, чтобы создать ini файл по нажатию кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
ini:=TIniFile.Create(GetCurrentDir+'\inifileA.ini'); я тут поправочку сделал..Теперь поппробуй
ini.WriteString(Button1.Caption,'edit',Edit1.Text);
ini.Free;
 
end;

Нов моем случае ф-ция GetCurrentDir был присвоен переменной строкового типа dir, затем я пытаюсь связать путь до файла через переменную dir + comp.ini.

Я этот пример брал из книги Delphi учимся на примерах (Автор Парижский, помоему).

Может подскажите что поменять та мне?

[villain10]

И ошибка не компиляции, а времени выполнения. Где-то StrToInt пытается строку указанную в сообщении в Integer перевести

оуу, спасибо. Видимо вы отредактировали ваше сообщение. Только увидел, щас гляну код

[Shouldercannon]

Трабл тут

n:=StrToInt(ss);

ss:=Win.ReadString('num', 'num', ss);

очень интересная запись Не пойму её назначения. В ss и путь, и считывание значение параметра.
[Warning] Unit1.pas(67): For loop control variable must be simple local variable - использование одной глобальной переменной в разных процедурах может привести к неприятностям.