| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Компонент StringGrid

Alena ©   (2005-05-30 20:19:00) 

Подскажите пожалуйста, как содержимое таблицы StringGrid сохранить в  файл *.txt или *.doc.

---

Kerk   (2005-05-30 20:59:00) [1]

практически в тему:
http://delphibase.spb.ru/?action=viewfunc&topic=vclservice&id=10146

---

vertal   (2005-05-30 20:52:00) [2]

В файл CSV:

procedure ExportDrawGridToCSVFile(const Src: TDrawGrid; const Delimiter: Char; const FileName: TFileName);
var
 I, J: Integer;
 f: Text;
 LastFileMode: Integer;
 t: string;
begin
 LastFileMode := FileMode;
 FileMode := fmOpenWrite;
 try
   AssignFile(f, FileName);
   Rewrite(f);
   try
     for I := 0 to Src.RowCount - 1 do
     begin
       for J := 0 to Src.ColCount - 1 do
       begin
         if Assigned(Src.OnGetEditText) then
           Src.OnGetEditText(Src, J, I, t)
         else if Src is TStringGrid then
           t := TStringGrid(Src).Cells[J , I];
         write(f, t + Delimiter);
       end;
       writeln(f);
     end;
   finally
     CloseFile(f)
   end;
 finally
   FileMode := LastFileMode;
 end;
end;


---

Anatoly Podgoretsky   (2005-05-30 20:35:00) [3]

http://podgoretsky.com/cgi-bin/dlcounter/npscnt?file=http://podgoretsky.com/ftp/Docs/Delphi/Podgoretsky/PasFiles.html&file_id=app-files

Это примеры, но придется затачивать и устранять ошибки в статье. Главное понятны идеи, как это сделать.

---

Наверх