1 Topic by sibprogsistem (edited by sibprogsistem 2018-10-06 09:51:11)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: передать строковые аргументы

возможно заголовок не верен

с этим примером все понято

var
ret: string;
 
 
procedure Form1_OnShow (Sender: TObject; s, Action: string);
begin
   form1.Label1.Caption:= s;
end;
 
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
 ret:='чебурек';
 Form1_OnShow (TObject,ret,'');
end;

а как вернуть в  form1.Label1.Caption:= s;

этот результат?

var
ini:TInifile;
er: string;
begin
smsini :=TIniFile.Create(ExtractFilePath (ParamStr (0))+'setting/smssetting.ini');
if ini.ReadString('on', '1', '') = 'a' then er:='a' else
if ini.ReadString('on', '2', '') = 'b' then er:='b' else
if ini.ReadString('on', '3', '') = 'c' then er:='c';
ini.Free;
 end;

я так понимаю

нужно  в procedure Form1_OnShow дабавить переменную и (запросить) в нее значение переменной er
а потом предеть в form1.Label1.Caption..

2 Reply by sibprogsistem (edited by sibprogsistem 2018-10-06 10:36:00)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: передать строковые аргументы

сделал

function ramm (s: string):string;
var
ini:TInifile;
er: string;
begin
ini :=TIniFile.Create(ExtractFilePath (ParamStr (0))+'setting\smssetting.ini');
if ini.ReadString('on', '1', '') = 'a' then er:='a' else
if ini.ReadString('on', '2', '') = 'b' then er:='b' else
if ini.ReadString('on', '3', '') = 'c' then er:='c';
result:=er;

end;

procedure Form1_OnShow (Sender: TObject; s, a, Action: string);
var
rete: string;
begin
   rete:=ramm('');
   form1.Label1.Caption:= rete;
end;
  • Registered: 2018-09-11
  • Posts: 18

Re: передать строковые аргументы

Можете ваш проект прикрепить? Для чего это?

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: передать строковые аргументы

Да, конечно!

Post's attachments

Attachment icon sms.rar 6.91 kb, 451 downloads since 2018-10-10