Форум "Delphi" (архив)

Паскаль, Делфи

#0 АЛЁНА © 25.02.05 18:55:46 - 01.03.05 15:33:33

Открытие сохранённой StringGrid

Кто-нибудь! Помогите с открытием сохранённой StringGrid. Не открывается. Пишет ошибку U/O error.
Ошибка начинается при записи-сохранении (ЗАПИСЬ В ФАЙЛ). Что я пишу неправильно?

Помогите разобраться, что я делаю не так.
Весь Unit здесь:

Очень срочно надо!..

#1 Deep © 25.02.05 19:05:52

> АЛЁНА ©
проще было бы запаковать проект архиватором и выложить там же.
с помощью отладчика легче будет искать, чем глазками выискивать

#2 Deep © 25.02.05 19:23:11

сходу могу сказать, что
1)
вместо TextFile я бы использовал тип Text

2)
Append(f); // открываем файл
после
Rewrite(f); // создаем файл
абсолютно лишнее движение

3)твой пример(правда в чуть "усложненном" виде) есть в хелпе Делфи

и виглядит вот так:
The following example uses a button, a string grid, and a Save dialog box on a form. When the button is clicked, the user is prompted for a filename. When the user clicks OK, the contents of the string grid are written to the specified file. Additional information is also written to the file so that it can be read easily with the FileRead function.

procedure TForm1.Button1Click(Sender: TObject);
var
  BackupName: string;
  FileHandle: Integer;
  StringLen: Integer;
  X: Integer;
  Y: Integer;
begin
  if SaveDialog1.Execute then
  begin
    if FileExists(SaveDialog1.FileName) then
    begin
      BackupName := ExtractFileName(SaveDialog1.FileName);
      BackupName := ChangeFileExt(BackupName, '.BAK');
      if not RenameFile(SaveDialog1.FileName, BackupName) then

        raise Exception.Create('Unable to create backup file.');
    end;
    FileHandle := FileCreate(SaveDialog1.FileName);
    { Write out the number of rows and columns in the grid. }
    FileWrite(FileHandle, 
      StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));
    FileWrite(FileHandle, 
      StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));
    for X := 0 to StringGrid1.ColCount – 1 do
    begin

      for Y := 0 to StringGrid1.RowCount – 1 do
      begin
        { Write out the length of each string, followed by the string itself. }
        StringLen := Length(StringGrid1.Cells[X,Y]);
        FileWrite(FileHandle, StringLen, SizeOf(StringLen));
        FileWrite(FileHandle,
          StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);
      end;
    end;
    FileClose(FileHandle);
  end;

end;

#3 АЛЁНА © 25.02.05 21:22:13

Deep! Спасибо огромное!!! Щас буду пробовать.

#4 АЛЁНА © 25.02.05 23:26:02

Deep!
Стока в конце
StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);
ругается "[Error] Osn_sost.pas(259): Variable required". Чё он хочет?

#5 АЛЁНА © 25.02.05 23:42:39

Архив проекта выложила на адрес:

#6 Knight © 25.02.05 23:59:58

> Variable required". Чё он хочет?
Переменную наверно и хочет...

#7 АЛЁНА © 26.02.05 09:50:35

Это понятно, но вот новичку, каким я являюсь, да к тому же ещё и дремучему, хочется понять какую переменную куда надо вписать. По клику мыши на кнопке надо открыть предварительно сохранённую StringGrid.
Поможите, люди добрые!

#8 cyborg © 26.02.05 09:55:30

var S : String;

S:=Length(StringGrid1.Cells[X,Y]);
Length(S);

#9 Knight © 26.02.05 10:16:40

>#7 АЛЁНА © 26.02.05 09:50:35
> хочется понять какую переменную куда надо вписать.
Счёлкаешь мышкой внутри скобок, жмёшь CTRL-ALT-SPACE, всплывает тот же хинт, что и при вводе первой скобки, с перечислением всех параметров функции, там, обычно всё описано, где var, где что... :)

А Length тут ни при чём, он с константами работает... смотри функцию, куда ты передаёшь результат от Length...

#10 Knight © 26.02.05 10:18:04

>#9 Knight © 26.02.05 10:16:40
> жмёшь CTRL-ALT-SPACE
Стоп... CTRL-SHIFT-SPACE...

#11 Knight © 26.02.05 10:22:30

>#5 АЛЁНА © 25.02.05 23:42:39
> Архив проекта выложила на адрес:
А архив не открывается...

#12 Mystic © 26.02.05 12:07:50

Oшибок в коде чтения/записи из файла я заметил только одну ошибку от невнимательности

Конечно, при условии, что в одной ячейке таблицы не может быть несколько строк. И код сохранения/записи отработал нормально

Однако, во-первых... Как уже отмечалось, делать после ReWrite вызов Append это уже контрольные выстрел в голову, необязательно. Во-вторых, при загрузке выполнять i := 0 необязательно, так как в цикле все равно переменная проинициализируется. И еще, Deep, TextFile это синоним для Text, возникший из-за того, что ряд компонент имеют свойство Text, а писать в таких случаях System.Text неинтересно.

А теперь сама ошибка


if OpenDialog1.Execute then
begin  {если диалог закрыт кнопкой "Открыть"}
  AssignFile(F, SaveDialog1.FileName);
.....

Хотя может быть это и задумка такая

#13 Deep © 26.02.05 12:18:49

>#12 Mystic ©
все точно подметил

> И еще, Deep, TextFile это синоним для Text, возникший из-за
> того, что ряд компонент имеют свойство Text, а писать в
> таких случаях System.Text неинтересно.
я знаю(ведь не написал, что это ошибка). Просто написал о собственных предпочтениях, вернее привычках еще с Турбопаскаля.

Точно также Assign заменили на AssignFile

#14 Mystic © 26.02.05 12:28:59

Не ошибка, но пора бы уже начать переползать на новые веяния... Не поздно ли?

#15 Deep © 27.02.05 11:40:37

>#14 Mystic ©
согласен, пора.

#16 АЛЁНА © 28.02.05 10:20:21

Спасибо всем большое! Переделала процедуры сохранения-открытия. Сделала на открытие так:

assignfile (f,'Основной состав'); - открывается нормально.

Но результат немного не тот. Мне бы надо на самом деле, чтоб при открытии формы со StringGrid'ом автоматически в таблицу грузился этот файл "Основной состав".
Выложенный архив заменила (461Кб). Теперь скачивается. Там есть и примерный файл "Основной состав".
Помогите добиться нужного результата!

#17 Deep © 28.02.05 13:48:35

> чтоб при открытии формы со StringGrid'ом автоматически в
> таблицу грузился этот файл "Основной состав".

  TChildForm = class(TForm)
    .....
  private
    { Private declarations }
    procedure OsnSostReadFromFile;  
  public
    { Public declarations }
  end;


const
  OsnSostFileName = 'Основной состав';
....



procedure TChildForm.OsnSostReadFromFile;
var f: textfile;
    temp,x,y: integer;
    tempstr: string;
begin
  AssignFile (f, OsnSostFileName);
  Reset (f);
  Readln (f,temp);
  StringGrid1.ColCount := temp;
  Readln (f,temp);
  Stringgrid1.RowCount := temp;
  For X:=0 to stringgrid1.ColCount-1 do
    For y:=0 to stringgrid1.RowCount-1 do begin
      readln (F, tempstr);
      stringgrid1.Cells[x,y] := tempstr;
    end;
  CloseFile (f);
end;

procedure TChildForm.N14Click(Sender: TObject);
begin
  OsnSostReadFromFile;
end;

procedure TChildForm.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0,0]:='ФАМИЛИЯ, ИМЯ, ОТЧЕСТВО';
  StringGrid1.Cells[1,0]:='ПЕД.ЧАСЫ';
  StringGrid1.Cells[2,0]:='КОНЦ.ЧАСЫ';
  StringGrid1.Cells[3,0]:='ПЕД.ЧАСЫ';
  StringGrid1.Cells[4,0]:='КОНЦ.ЧАСЫ';
  StringGrid1.Cells[5,0]:='ПЕД.ЧАСЫ';
  StringGrid1.Cells[6,0]:='КОНЦ.ЧАСЫ';

  //вот этот вызов загрузит данные при создании формы
  OsnSostReadFromFile;
end;

пару замечаний:
1) старайтесь красиво, структурированно, с соблюдением регистра писать код -- тогда он становится читабельным и в нем будет легко разобраться и тебе(например, через полгода/год) и другим

2)используй компонент ActionList -- он значительно упрощает жизнь программиста...

#18 Knight © 28.02.05 14:10:18

АЛЁНА, напиши тему лабораторной... а то это не программа, а какой-то разврат? Ничего личного...

#19 Knight © 01.03.05 13:22:49

Обиделась?

#20 АЛЁНА © 01.03.05 13:27:12

Спасибо, Deep! Замечания постараюсь учесть. Изучаю Delphi всего месяц самостоятельно, тыкаюсь носом, как котёнок...

Knight © 28.02.05 14:10:18:
Крокодиловый фон, как видно, произвёл впечатление! В итоге всё будет выглядеть гораздо строже и аскетичнее. Программа предназначена для нашего завуча, подсчитывающего часы для преподавательского состава - чтоб всё было в одном месте, типа базы данных, и ещё немножечко считало. Поскольку солидные самоподсчитывающие таблицы для меня пока сложноваты - пытаюсь работать со StringGrid.

#21 Knight © 01.03.05 13:30:44

>#20 АЛЁНА © 01.03.05 13:27:12
> Крокодиловый фон, как видно, произвёл впечатление!

Фона как-то и не заметил...

> Программа предназначена для нашего завуча, подсчитывающего
> часы для преподавательского состава - чтоб всё было в одном
> месте, типа базы данных,
Вот я и смотрю, что ТИПА... а почему бы не использовать реальную БД?
Чем ТАКОЕ, лучше уж Excel или Access...

#22 АЛЁНА © 01.03.05 13:45:10

Наверно, лучше... Я об этом подумаю.
Сделанная мной в Access таблица была помещена на форму, но я так и не разобралась, как её заставить считать разницу и сумму. Знаю, что для этого служат CalcFields, но не знаю алгоритмов их использования.

#23 Knight © 01.03.05 13:57:28

Такого уровня программу, можно без заморочек и с использованием Paradox сделать...

#25 Knight © 01.03.05 14:09:26

BDE+Paradox... хотя я последнее время этот тандем и не очень... но для данной задачи + первый месяц в Delphi = самое оно

#26 АЛЁНА © 01.03.05 14:25:17

Спасибо за совет. У меня нет этих программ. Пошла дальше мучить Delphi. Постепенно разберусь, программистами же не рождаются...

#27 Knight © 01.03.05 14:30:32

>#26 АЛЁНА © 01.03.05 14:25:17
> Спасибо за совет. У меня нет этих программ.
BDE - это как-раз из Delphi... Borland Database Engine... Смотри во вкладкам TTable, TQuery и иже с ними... доступ к выборкам через TDataSource, отображение TDBGrid, TDbLabel etc.

> Сделанная мной в Access таблица была помещена на форму,
> но я так и не разобралась, как её заставить считать разницу
> и сумму. Знаю, что для этого служат CalcFields, но не знаю
> алгоритмов их использования.
с таблицами Access можно работать через компоненты:
1)БДЕ(требует установленого BDE на всех машинах, где будет использоваться прога)
2)АДО(вообщем, ничего не требует -- все нужное уже есть в поставке Винды)
Лично я рекомендую ADO. Зачем лишнее с собой таскать?
В делфи есть соотвествующие закладки компонент. Изучай, смотри, пробуй, спрашивай.

вот неплохая иллюстрированная статья

#29 АЛЁНА © 01.03.05 14:45:08

Knight:...TTable, TQuery и иже с ними... доступ к выборкам через TDataSource, отображение TDBGrid, TDbLabel etc.
Там я уже полазила, нашла в TTable CalcFields и на этом пока замкнула.

Deep: Спасибо. По ссылке нашла огромный список статей. Какую именно смотреть?

#30 Deep © 01.03.05 15:05:45

> Какую именно смотреть?
извини, там сайт на фреймах построен: бросил общую ссылку.
Вот эту:

#31 АЛЁНА © 01.03.05 15:10:58

Ага. Щас буду читать и пробовать... Может, действительно быстрее и логичнее всё получится (если разберусь, конечно...).
Спасибо за участие и помошь.

"C:\Program Files\Borland\Delphi7\Demos\Ado\"

#33 Knight © 01.03.05 15:33:33

>#31 АЛЁНА © 01.03.05 15:10:58
> Ага. Щас буду читать и пробовать... Может, действительно
> быстрее и логичнее всё получится (если разберусь, конечно...).

Если, что заходи, помогут... хотя BDE, для новичка, всё-же попроще...

Тема находится в архиве

Написать ответ