Как добавить название кнопки в ini-файл при условии

[demiancz]

Здравствуйте. Есть 2 формы, PopupMenu и пару кнопок. При нажатии на кнопке правой кнопкой мыши ее название переносится на кнопку второй формы и сохраняется в ИНИ файле

Код такой
procedure TForm1.N1Click(Sender: TObject);
var
n: integer;
begin
n:=1;
while n <= 100 do
if (Form2.sBitBtn1.Caption = '0') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Form2.sBitBtn1.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption;
break;
end
else
if (Form2.sBitBtn2.Caption = '0') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Form2.sBitBtn2.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption;
break;
end;
Это работает
Теперь пытаюсь добавить название кнопки в ИНИ-файл. Пробую так:
procedure TForm1.N1Click(Sender: TObject);
var
n: integer;
begin
n:=1;
while n <= 100 do
if (FavoriteForm.sBitBtn1.Caption = '0') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Form2.sBitBtn1.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption;
Form2.sBitBtn1.Caption := ini.WriteString('Ua','fa','0');
break;
end
else
if (Form2.sBitBtn2.Caption = '0') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Form2.sBitBtn2.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption;
Form2.sBitBtn1.Caption := ini.WriteString('Ua','fb','0');
break;
end;
Тут ошибка.
[DCC Error] Proga1.pas(175): E2010 Incompatible types: 'string' and 'procedure, untyped pointer or untyped parameter'
Form2.sBitBtn1.Caption := ini.WriteString('Ua','fa','0'); с этой строкой что то не так

Помогите пожалуйста! Как добавить название кнопки в INI?

[psycho-coder]

procedure WriteString(const Section: String; const Ident: String; const Value: String); virtual; abstract;

WiriteStirng это процедура. А процедуры не возвращают значения

[roperd]

Неужели основы паскаля не знаете?? привильно psycho-coder сказал, такие подпрограммы как функции возвращают значения определённое в их типе, но не процедуры, уберите в строке Form2.sBitBtn1.Caption := ini.WriteString('Ua','fb','0'),
Form2.sBitBtn1.Caption и оставьте ini.WriteString('Ua','fb', Form2.sBitBtn1.Caption),
так же судя по всему вы создать ини файл забыли, если ошибаюсь поправьте, вот весь код вашей программы, исправленный, должно работать:

procedure TForm1.N1Click(Sender: TObject);
var
n: integer;
PIni: TiniFile;
begin
n:=1;
while n <= 100 do
if (FavoriteForm.sBitBtn1.Caption = '0') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Form2.sBitBtn1.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption;
Form2.sBitBtn1.Caption := ini.WriteString('Ua','fa','0');
break;
end
else
if (Form2.sBitBtn2.Caption = '0') and
(PopupMenu1.PopupComponent is TsBitBtn) then begin
Pini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'PiniFile.ini');
Form2.sBitBtn2.Caption:=(PopupMenu1 .PopupComponent as TsBitBtn).Caption;
Pini.WriteString('Ua','fb',Form2.sBitBtn1.Caption);
break;
end;
Постараюсь разъяснить для вас процедуру WriteString:
WriteString('Ua','fb',Form2.sBitBtn1.Caption);
'Ua' - является заголовком столбца инифайла, некой секцией, в которой собраны поля, соответствующие или не соответствующие названию столбца, полем, как раз таки является значение 'fb', который в свою очередь имеет идентифицирующее значение, представленного процедурой типа(в данном случае строкового), всё это выглядит в инифайле так:
[Ua]
fb = (строковое значение, в данном случае Form2.sBitBtn1.Caption)
Чтобы потом считать это значение, уже понадобиться как раз функция, Ini.ReadString, состоит она из тех же параметров, что и WriteString, например, можно считать таким образом:
Form2.sBitBtn1.Caption := pIni.ReadString('Ua', 'fb', Form2.sBitBtn1.Caption);