7 lines
70 B
ObjectPascal
7 lines
70 B
ObjectPascal
var
|
|
I: Integer;
|
|
|
|
begin
|
|
I := I + 1;
|
|
FileName := IntToStr(I);
|
|
end. |