Question

Помогите пожалуйста написать программы в Pascal.

Answer 1

Ответ:

function TForm1.ceNeedFile(Sender: TObject;

const OrginFileName: String;

var FileName, Output: String): Boolean;

var

path: string;

f: TFileStream;

begin

Path := ExtractFilePath(ParamStr(0)) + FileName;

try

F := TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite);

except

Result := false;

exit;

end;

try

SetLength(Output, f.Size);

f.Read(Output[1], Length(Output));

finally

f.Free;

end;

Result := True;

end;