Странности компиляции Лазаруса

[yantux]

Почему Лазарус при компиляции пишет ругается на assign(), а в freepascal такой проблемы нет?

Unit1.pas(80,40) Error: Wrong number of parameters specified for call to "Assign"

Перепробовал все подозрительные галочки компиляции (совместимость, расширения delphi, совместимость tp7 и т.д.). Работаю в win32.

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


procedure TForm1.Button1Click(Sender: TObject);
Var
S : String;
data : integer;
AProcess : TProcess;
fileEthList : file of text;
strNameEthListExe, strNameEthList : string;
begin
   strNameEthListExe := 'ether_list.exe';
   AProcess := TProcess.Create( nil );
   AProcess.CommandLine := strNameEthListExe;
   AProcess.Options := AProcess.Options + [poWaitOnExit];
   AProcess.Execute;
   AProcess.Free;
   
   strNameEthList := 'eth.list';
   assign( fileEthList, strNameEthList );
   reset( fileEthList );
   while ( not oef( fileEthList ) ) do
         begin
         readln( fileEthList, S );
         ListBox1.Items.Add( S );
         end;
   close( fileEthList );   

     data := ListBox1.Count;
     Str( data, S ) ;
     data := ListBox1.Items.Add( 'ListBox1.Items.Add111 = ' + S
             + ' ' + LabeledEdit1.Text );
     LabeledEdit1.Text := S;
     
   (*  ShowMessage( 'ShowMessage2222' );    *)
   
   writeln( 'Hello World from Lazarus!!!!!' );
end;         


[VirtUX]

Вместо fileEthList : file of text; пиши fileEthList : textfile;
Вместо assign( fileEthList, strNameEthList ); пиши assignfile( fileEthList, strNameEthList );
Вместо close( fileEthList ); пиши closefile( fileEthList );
P.S. Почему writeln( 'Hello World from Lazarus!!!!!' );, а не ShowMessage('Hello World from Lazarus!!!!!')?

[yantux]

Вместо fileEthList : file of text; пиши fileEthList : textfile;
Вместо assign( fileEthList, strNameEthList ); пиши assignfile( fileEthList, strNameEthList );
Вместо close( fileEthList ); пиши closefile( fileEthList );

Интересно... а почему именно так? В какой доке об этом написано?

[VirtUX]

Интересно... а почему именно так? В какой доке об этом написано?

Не знаю в какой доке, но так работает без ошибок.

[yantux]

Ругается на oef() - чем его заменить?

Добавлено спустя 5 минут 11 секунд:
опс лоханулся, конечно же eof()...

[VirtUX]

Ругается на oef() - чем его заменить?

Не знаю что такое oef(), но вместо его написал бы eof()

[Alexx2000]

Почему Лазарус при компиляции пишет ругается на assign(), а в freepascal такой проблемы нет?

Unit1.pas(80,40) Error: Wrong number of parameters specified for call to "Assign"

Потому что вы вызываете Assign из обработчика кнопки и вместо процедуры Assign берется метод Assign формы. Тоже самое и с Close.