procedure stleft
2016-08-23
1 0 0
no vote
Other
Earn points
procedure stleft (var vobn,x1s,y1s,x,y,plx,x1,x2,y1,y2:integer);
begin
case vobn of
9,8,12,17,13,19,16,5,15 :begin
y1s:=y1+y;
x1s:=x1+x;
if vobn=8 then y1s:= y1s+10;
if vobn=13 then y1s:= y1s+20;
end;
3,10:begin
y1s:=y2+y;
x1s:=x2+x;
end;
2,6,18:begin
begin
case vobn of
9,8,12,17,13,19,16,5,15 :begin
y1s:=y1+y;
x1s:=x1+x;
if vobn=8 then y1s:= y1s+10;
if vobn=13 then y1s:= y1s+20;
end;
3,10:begin
y1s:=y2+y;
x1s:=x2+x;
end;
2,6,18:begin
delphi
程序
stleft
Related Source Codes
MY Function Library
0
0
no vote
DELPHI calls the voice synthesis provided by windo
0
0
no vote
Compare binary file
0
0
no vote
Delphi 7
0
0
no vote
SQL database table structure merge tool
0
0
no vote
No comment