проблемы с INI

[delphi]

элементарная процедура работающая с ини

procedure TForm1.Button1Click(Sender: TObject);
var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create(IncludeTrailingBackSlash(ParamStr(0)) + 'ini.ini');
  label1.Caption := Ini.ReadInteger('version', 'ver', '1234567');
  Ini.Free;
end

сам ini.ini

[version]
ver=11

уже спросил на куче форумов..почему caption становиться 123.. а не 11 как в файле?пробовал вывести путь тудаже-все ок....

[dron-s]

у тебя компилятор ни каких ошибок не выдаёт?
как ты к типу стринг пытаешься присвоить тип Integer?

[RSLoader]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini:TIniFile;
  IniName:String;
begin
  GetDir(0,IniName);
  IniName:=IncludeTrailingBackSlash(IniName)+'ini.ini';
  Ini:=TIniFile.Create(IniName);
  Label1.Caption:=IntToStr(Ini.ReadInteger('version','ver',0));
  Ini.Free;
end;

[Virtson]

последний параметр не должен быть строковый, верно

[dron-s]

вот так долно работать

function ReadIni(ASection, AString : String) : String;
var
   sIniFile: TIniFile;
const
   S = 'Exception';
begin
   sIniFile := TIniFile.Create(ExtractFilePath(paramStr(0)) + '\Ini.ini');
   Result := sIniFile.ReadString(ASection, AString, S);
   sIniFile.Free;
end;

использовать так

Label1.Caption:=ReadIni('Version','Ver');

проверить нет возможности... Delphi под руками нет