Галактика в вопросах и ответах

Код: Выделить всё

...
File _fLastNum; // Файл с нумерацией документов

.function GetLastFileNum : byte;
begin
   result := 0;

   _fLastNum.OpenFile(_resFolder + csFileNumName, stCreate);
   
   var str : string;
   _fLastNum.ReadLn(str);
   
   result := Byte(str);
end.

Код: Выделить всё

.begin
  Var sinfo: string; 
  Var lFile: longint;
Getfirst allmemo where((1000000000001h == allmemo.nrec));
lFile:=CreateFileHandle(’allmemo.mem’);
 file_Openfile(’allmemo.mem’,stOpenRead,lFile);
  file_seek(0, lFile);
  file_ReadLn(sinfo,lFile);
  file_Close(lFile);
message(‘sinfo = ‘+sinfo+’lFile = ‘+lFile);
End.

Код: Выделить всё

.linkform ’AktDoUsl_U_140904’ prototype is akts
.NameInList ’Акт о выполненных работах - 140904’
...
.begin
  Var FilePath, sinfo: string; 
  Var lFile: longint;
  FilePath :=GetPathParameter('files', 'TmpFilesDirectory', 0)+'memo.tmp';
  Getfirst allmemo where((0001000000000001h == allmemo.nrec));
 If ExportMemoToFile(allmemo.mem, FilePath, false) = true then
  {
   lFile:=CreateFileHandle(FilePath);
   if file_Openfile(FilePath,stOpenRead,lFile) = true then
    {
       file_seek(0, lFile);
       file_ReadLn(sinfo,lFile);
       file_Close(lFile);
       message(‘sinfo = ‘+sinfo);
      } message (‘Ошибка открытия файла ’+FilePath, error);
  } else message (‘Ошибка экспорта мемо- поля в файл!’, error);
end.