- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
procedure TForm1.save_to_file_coordinates;
label
f,d;
begin
f:begin
if str1=0 then
begin
memo1.items.Strings[0]:=memo3.Lines.Strings[0];
str1:=str1+1;
end;
if str1=b then
begin
goto d;
end;
begin
memo1.items.Strings[strtoint(floattostr(str1))]:=memo3.Lines.Strings[strtoint(floattostr(str1))];
str1:=str1+1;
end;
goto f;
end;
d:begin
begin
if b=i then
begin
exit;
end;
begin
memo2.items.Strings[strtoint(floattostr(str2))]:=memo3.Lines.Strings[strtoint(floattostr(b))];
b:=b+1;
str2:=str2+1;
end;
goto d;
end;
end;
end;
3.14159265 10.06.2010 17:32 # 0
за такое надо не по рукам, а по морде бить
Stalker 10.06.2010 21:54 # 0
ganja_boy 11.06.2010 07:43 # 0
фтопку
bugmenot 15.06.2010 19:43 # +1
CepbIu 19.07.2010 06:40 # +1
adli__82 17.08.2010 10:19 # 0
LOL -ом кода не испортиш