procedure PrtLabel (Form:TForm;row:integer;line:integer;Original:integer;dataset:Tdataset); AION(アイオン) 溜まり場
var アイオン RMT
i,j:integer;
begin
with dataset do
begin
first;
for j:=0 to line-1 do
begin
if not eof then
begin
for i:=0 to row-1 do
Printqrlabel(Form,Original+row*j+i,Fields[i].asstring);
next;
end else
for i:=0 to row-1 do
Printqrlabel(Form,Original+row*j+i,'');
end;
end;
end;
シリア内戦、宗派間抗争の様相を強める 国連報告
11 年前
0 件のコメント:
コメントを投稿