10 lines
144 B
ObjectPascal
10 lines
144 B
ObjectPascal
uses
|
|
classes;
|
|
begin
|
|
with TFileStream.Create('input.txt', fmOpenRead) do
|
|
try
|
|
SaveToFile('output.txt');
|
|
finally
|
|
Free;
|
|
end;
|
|
end;
|