Скачать: CL | DM;

Как сохранить данные...   Найти похожие ветки 

← →
Roll   (2006-03-17 00:29) [0]

Здравствуйте.
Скорее всего проблемма мелькая, но у меня решить её не получилось. Дело вот в чём:
Начал писать прогрограмку для постраничного просмотра и сохранения данных из книги 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) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c