[everlast]

Девушка делает курсовой проект по Delphi
В строчке "Procedure TBaseForm.SaveGrid;" - выводит ошибку
";" Expected but "." found" (ошибку указывает на точку между словами ...Form.Save...)

[Aristarh Dark]

Т.к. код процедуры не приведен могу предположить, что ошибка либо в ДНК либо в 17 строке.

[everlast]

Код:

procedure TBaseForm.SaveGrid(Sender: TObject);
var
f:textfile;
x,y:integer;
begin
assignfile(f,'Base.zap');
rewrite(f);
writeln(f,StringGrid1.colcount);
writeln(f,StringGrid1.rowcount);
for i:=0 to StringGrid1.colcount - 1 do
for j:=0 to stringGrid1.Rowcount - 1 do
writeln(f,StringGrid1.cells[x,y]);
closefile(f);
end;

[Aristarh Dark]

Однако метод формы не описан.

[everlast]

"Это начало кода программы"

Код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
  TDryzi = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BaseForm (Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SaveGrid(Sender: TObject);
    procedure LoadGrid{(Sender: TObject)};
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dryzi: TDryzi;

implementation

Тэги не забываем!!!

[Aristarh Dark]

Дык:

Код:

TDryzi = class(TForm)

и

Код:

procedure TBaseForm.SaveGrid(Sender: TObject);