[romanzi]

Вот мой ini:

Код:

function TForm1.MyFunction: Boolean;
var
IniFile: TIniFile;
begin
result:=false;
if (label1.Caption <> '' ) and (label2.Caption <> '') and (label3.Caption <> '') then
begin
IniFile := TIniFile.Create(ExtractFilePath(paramstr(0)) + 'nsa.ini');

IniFile.WriteString('form1','label1',opendialog1.FileName);
IniFile.WriteString('form1','label2',opendialog1.FileName);
IniFile.WriteString('form1','label3',opendialog1.FileName);
IniFile.Free;

label1.Caption:='1.' ;
label2.Caption:='2.' ;
label3.Caption:='3.'  ;


result:=true;

end;
end;

Дело в том, что всё вроде работает - нужный мне результат записывается в ini файл.

Но во всём проблема, что оно туда записывает, но не читает. После записи стоит тупо мои '1.', '2.' и т. п.

Помогите, сделать так, что бы читало.

[Assistant]

чота я вообще не понял что вы пытаетесь писать в INI? opendialog1.FileName к чему вообще? притом 3 раза на разные параметры. И где

Код:

Label1.Caption := IniFile.ReadString('form1','label1','default value');

вы же ничего не читаете, поэтому ничего и не "считывается"

[Asinkrit]

третий параметр в функции ReadString у компонента TINIFile, это значение по умолчанию, в случае, если в ini файле указываемого параметра не окажется.

[Assistant]

точно, это у TRegistry - 2 параметра, забыл уже совсем, давно не юзал INI.