|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите найти ошибку)
Девушка делает курсовой проект по Delphi
В строчке "Procedure TBaseForm.SaveGrid;" - выводит ошибку ";" Expected but "." found" (ошибку указывает на точку между словами ...Form.Save...) |
#2
|
||||
|
||||
Т.к. код процедуры не приведен могу предположить, что ошибка либо в ДНК либо в 17 строке.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
код процедуры
Код:
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, 19.07.2011 в 12:21. |
#4
|
||||
|
||||
Однако метод формы не описан.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
|||
|
|||
Эта программа "Записная книжка". Сохраняет данные при выходе, и загружать при входе!
"Это начало кода программы"
Код:
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, 19.07.2011 в 13:00. |
#6
|
||||
|
||||
Дык:
Код:
TDryzi = class(TForm) Код:
procedure TBaseForm.SaveGrid(Sender: TObject); Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |