[everlast]

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

[Aristarh Dark]

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

[everlast]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

<b>procedure TBaseForm.SaveGrid(Sender: TObject);</b> 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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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]

Дык:

Код:

1	<u><b>TDryzi</b></u> = class(TForm)

и

Код:

1	procedure <u><b>TBaseForm</b></u>.SaveGrid(Sender: TObject);