Funkce – Delphi – Fórum – Programujte.com

pls nevite jak udelam aby mi bralo jednotlive prvky pole a pres funkci mi je v poli nahradilo? mam tam nekde chybu ale nemuzu prijit nato kde

procedure TForm1.B_prevodClick(Sender: TObject);

var r,s,Pr,Ps:integer;



function soucet(var x:string):string;

var i:integer;

    pomocny:integer;

begin

 pomocny:=0;

  for i:=length(x) downto 1 do

   begin

    pomocny:=pomocny+strtoint(copy(x,i,1));

   end;

 soucet:=inttostr(pomocny);

end;



begin

 for s:=1 to PS-1 do

   for r:=1 to PR-1 do

 StringGrid1.Cells[s,r]:=soucet(StringGrid1.cells[s,r]);

end;