2014-09-21 3 views
1

Я использую Free Pascal 2.6.4 32-bit в Windows 8.1. Я хочу использовать TFileStream для копирования файла.Как устранить ошибку «не распознанной» ошибки Pascal на TFileStream?

program copy; 

procedure CopyFile (strFilename : string); 
var 
    SourceF, DestF : TFileStream; 
begin 
end; 
begin 
    writeln('starting '); 

end. 

Компилятор не распознает TFileStream:

fpc copy_small.pas 
Free Pascal Compiler version 2.6.4 [2014/03/06] for i386 
Copyright (c) 1993-2014 by Florian Klaempfl and others 
Target OS: Win32 for i386 
Compiling copy_small.pas 
copy_small.pas(5,33) Error: Identifier not found "TFileStream" 
copy_small.pas(5,33) Error: Error in type definition 
copy_small.pas(12) Fatal: There were 2 errors compiling module, stopping 
Fatal: Compilation aborted 
Error: C:\FPC\2.6.4\bin\i386-Win32\ppc386.exe returned an error exitcode (normal if you did not specify a source file to be compiled) 

В примере кода я нашел в Интернете с помощью TFileStream не имеют «использует» положение. Есть ли что-то, что нужно установить в командной строке или включить в программу, чтобы использовать TFileStream с Free Pascal?

+0

@MitchWheat Я думаю, лучше спросить, почему вы все равно, что языки программирования используют другие люди. Напоминает мне о пользователях iPhone, у которых есть тишь, когда кто-то вытаскивает Blackberry. – Scooter

+0

Слышали ли вы о выражении «лошади для курсов»? Паскаль - это мертвый язык. Вы могли бы также изучить COBOL. Честно говоря, мне все равно, хотите ли вы тратить свое время, но изучая что-то, что будет продолжаться быть полезным, это то, что я лично сделал бы. –

+0

@MitchWheat Хорошо, что у нас есть, чтобы рассказать нам, что такое популярные языки, поэтому нам не нужно открывать Google. – Scooter

ответ

1

TFileStream живет в Classes единицу, так что ваш код должен быть

program copy; 

// To use any 'non-system' functionality add necessary units here 
uses 
    Classes; 

procedure CopyFile (strFilename : string); 
var 
    SourceF, DestF : TFileStream; 
begin 
end; 
begin 
    writeln('starting '); 

end.