У миня ошибка

[DelphiMan]

Пишу программку!Но не могу разобратся с ошибкой а здесь парни толковые может кто мне и поможет.
Код программы
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
Const
bufsize:integer=1024;
TestFile='C:\test.tst';
var
Form1: TForm1;
buf:array [1..bufsize] of byte; \\Здесь у меня ошибка
implementation

Вот моя ошибка...
[Error] Unit1.pas(21): Constant expression expected

[maladoy]

bufsize:integer=1024;

а зачем тип константы то указывать? и все нормально компилируется!!!

У миня ошибка

и кто или что этот минь?

[DelphiMan]

Сиравно не работает я и убрал уже bufsize:integer=1024; а толку ноль.
Может лудше гляниш исходник.

[mflat]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  bufsize=1024;
  TestFile='C:\test.tst';
var
  Form1: TForm1;
  buf:array [1..bufsize] of byte;
implementation
{$R *.dfm}

end.

При таком коде всё работает.

[maladoy]

да работает все!!!! смотри пост 6

[DelphiMan]

Ошибки не выдает но у меня в директории С дожен был создатся файл test.tst но его там почемуто нет.

[mflat]

Надо вызвать эту процедуру: Procedure WFile(Size:integer);
Будь внимательней!

[maladoy]

а по какому извини меня событию он должен создаваться????

[DelphiMan]

Вот посмотрите.

[mflat]

Посмотрел я. А дальше то что? Друг, тебе ответ дали почему файл не создаётся. Читай топики внимательней. Что ты ещё хочешь услышать? Насчёт кода? Оформлен ужасно и ничего непонятно.