Народ не знаю уже что делать вcе перепробовал.Мне нужно сохранить таблицу stringgrid при помощи savedialog!
Пожалуйсто помогите очень нужно?
Сообщение отредактировано: Mr.Dmitry -
Операциz с Savedialog |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Операциz с Savedialog |
Mr.Dmitry |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 46 Пол: Мужской Реальное имя: Дмитрий Репутация: 0 |
Народ не знаю уже что делать вcе перепробовал.Мне нужно сохранить таблицу stringgrid при помощи savedialog!
Пожалуйсто помогите очень нужно? Сообщение отредактировано: Mr.Dmitry - |
hardcase |
Сообщение
#2
|
code warrior Группа: Пользователи Сообщений: 484 Пол: Мужской Реальное имя: Славен Репутация: 8 |
Код // сохраняет сетку procedure SaveGrid(Grid: TStringGrid; const FileName: string); var F: text; i,j: integer; RowCount, ColCount: integer; begin AssignFile(F, FileName); Rewrite(F); try RowCount:=Grid.RowCount; ColCount:=Grid.ColCount; WriteLn(F, RowCount, ColCount); for i:=0 to RowCount-1 do with Grid.Rows[i] do for j:=0 to ColCount-1 begin WriteLn(F, Strings[j]); end; finally CloseFile(F); end end; // загружает сетку procedure LoadGrid(Grid: TStringGrid; const FileName: string); var F: text; i,j: integer; RowCount, ColCount: integer; s: string; begin AssignFile(F, FileName); Reset(F); try ReadLn(F, RowCount, ColCount); Grid.RowCount:=RowCount; Grid.ColCount:=ColCount; for i:=0 to RowCount-1 do with Grid.Rows[i] do for j:=0 to ColCount-1 begin ReadLn(F, s); Strings[j]:=s; end; finally CloseFile(F); end; end; ... // а так нужно использовать СэйвДиалог if SaveDialog1.Execute then begin SaveGrid(StringGrid1, SaveDialog1.FileName); end; Сообщение отредактировано: hardcase - -------------------- ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
|
Текстовая версия | 15.05.2024 10:06 |