Перевод кода из delphi в C#
procedure TForm1.Button1Click(Sender: TObject);
Var i,j,n,m,k,t:integer;
a:array [1..50] of integer;
s:string;
begin
memo1.Lines[0]:='';
memo1.Lines[1]:='';
memo1.Lines[2]:='';
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
k:=strtoint(edit3.Text);
if n div 3=(n/3) then
begin
i:=n div 3;
memo1.Lines[0]:=inttostr(i-2)+'+'+inttostr(i)+'+'+inttostr(i+2);
edit4.Text:=inttostr(i-2);
end
else
memo1.Lines[0]:='неверно';
if m div 3=(m/3) then
begin
j:=m div 3;
if j-2<>i+4 then memo1.Lines[1]:='текст какой - то: ';
memo1.Lines[1]:=memo1.Lines[1]+inttostr(j-2)+'+'+inttostr(j)+'+'+inttostr(j+2);
i:=j+2;
j:=k;
t:=1;
repeat
i:=i+2;
j:=j-i;
a[t]:=i;
t:=t+1;
//memo1.Lines[2]:= memo1.Lines[2]+inttostr(i)+'+';
until j<=0;
if j<>0 then memo1.Lines[2]:='неверно'
else
begin
for i:=1 to t-1 do memo1.Lines[2]:=memo1.Lines[2]+inttostr(a)+'+';
edit5.Text:=inttostr(a[t-1]);
s:=memo1.Lines[2];
delete(s,length(s),1);
memo1.Lines[2]:=s;
end;
end
else
begin
memo1.Lines[1]:='Неверно';
memo1.Lines[2]:='Неверно';
end;
end;
Переводил в С#, ошибка в выводе 3-ей строки. Отказался от textBox.Lines[] , т. к. была ошибка с выводом в него, которую я сам исправить не смог. Было сделано 3 textBox'а и в каждый выводилась своя строка. Но в 3 строке сбой...