Ошибка. Record.end

@Тимур05 · Регистрация: 31.08.2011

Author24 — интернет-сервис помощи студентам

Ошибка 39 и 40 строки. Пишет, что types of actual and formal var parameters must be identical. Почему так?

Delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
 
    TSearchRec = record
      Size:integer;
      Attr:integer;
    end;
 
var
  s:TSearchRec;
  F:string;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var  a:integer;
begin
  F:='C:\123.txt';
  FindFirst(F, 0, s);
  FindClose(s);
end;
 
end.

@northener · 02.08.2013, 01:41

Последним параметром этих двух процедур должен быть указатель на структуру типа TSearchRec, которая описана в файле SysUtils, а вовсе не вашем коде.

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,248
	02.08.2013, 01:41	2
	Последним параметром этих двух процедур должен быть указатель на структуру типа TSearchRec, которая описана в файле SysUtils, а вовсе не вашем коде. 0

Опции темы