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

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

Как сохранить данные... [D7, WinXP]

Roll ©   (2006-03-17 00:29:00) 

Здравствуйте.
Скорее всего проблемма мелькая, но у меня решить её не получилось. Дело вот в чём:
Начал писать прогрограмку для постраничного просмотра и сохранения данных из книги excel в  txt файл. В StringGrid всё нормально выводится, а вот как сохранить данные в txt файл, не пойму. Пробовал savetoFile, не сработало. Помогите чайнику :)
Надо фактически переменную S сохранить.

procedure TForm1.Button1Click(Sender: TObject);
var
    n:integer;
Excel: variant;
 i, j: word;
    S: Variant;
begin
n:=StrtoInt(Edit1.text);
if OpenDialog1.Execute then
 begin
    Excel := CreateOleObject('Excel.Application');
    Excel.Workbooks.Open(OpenDialog1.FileName);
    Excel.Visible:=False;
    for i := 1 to 5 do
      for j := 1 to 5 do
       begin
         S := Excel.Sheets[n].Cells[j,i];
         StringGrid1.Cells[i-1,j-1] := S;
       end;
    Excel.Quit;
 end
end;

end.

---

Игорь Шевченко   (2006-03-17 00:43:00) [1]

> а вот как сохранить данные в txt файл, не пойму


var
 F: TextFile;

...
AssignFile(F, 'foo.txt');
Rewrite(F);
.....
writeln (F, S);
.....

CloseFile(F);

или

var
 SL: TStringList;

 SL := TStringList.Create;
 ....

 SL.Add(S);
 ....

 SL.SaveToFile('foo.txt');
 SL.Free;

---

Наверх