Как сохранить данные...

← →
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;

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