[romanzi]

Вот мой ini:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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 раза на разные параметры. И где

Код:

1	Label1.Caption := IniFile.ReadString(<font color="Navy">'form1'</font>,<font color="Navy">'label1'</font>,<font color="Navy">'default value'</font>);

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

[Asinkrit]

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

[Assistant]

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