Просто в XLS... сбился с ног...

← →
Svoja4ok (2006-11-16 18:18) [0]

Господа, последняя надежда на вас!
Мне нужно сохранить данные в экзель, НО мне не нужно чтобы экзель запускался при этом, пишу в Д8 или Д2006.
Мне нужно просто создать на диске файл с расширением тхт и выбросить в него данные. Пробывал делать так:
procedure TForm3.N2Click(Sender: TObject); var t: textfile; i:integer; begin if savedialog1.Execute then begin assignfile(t, savedialog1.FileName); rewrite(t); for i:=1 to stringgrid1.ColCount-1 do write(t, stringgrid1.cells[i,2],"ТАВ"); writeln(t); for i:=1 to stringgrid1.ColCount-1 do write(t, stringgrid1.cells[i,3],"ТАВ"); writeln(t); write(t, label2.caption,"ТАВ",label3.caption,"ТАВ",label4.caption); closefile(t);

Но не прокатило. Екзель (чтоб ему плохо было) не то что не расскидал данные по ячейкам, но и вместо букв одни каркузябрики... Сохранял с расширением xls.

Потом попробывал вот так:
uses .........., comobj,........ ....... procedure TForm3.N2Click(Sender: TObject); var i:integer; XL:Variant; begin if savedialog1.Execute then XL:= CreateOleObject("Excel.Application"); XL.WorkBooks.Add; XL.WorkBooks[1].WorkSheets[1].Name:="test"; for i:=1 to stringgrid1.ColCount-1 do begin XL.WorkBooks[1].Sheets[1].Cells[i,1]:=stringgrid1.cells[i,2]; XL.WorkBooks[1].Sheets[1].Cells[i,1]:=stringgrid1.cells[i,3]; XL.Workbooks[1].SaveAs(savedialog1.filename); end; XL.DisplayAlerts := False; XL.Quit; XL := Unassigned;

Но здесь возникла другая проблема: в Д8 и Д2006 из ComObj были полностью убраны фичи типа CreateOleObject и всё что к этому прилагается.

Подскажите пожалуйста, как реализовать мою нужду? Пожалуйста с подробными примерами кода...

← →
Palladin © (2006-11-16 18:57) [1]

зайди на мою страницу

← →
saxon (2006-11-16 19:09) [2]

> Сохранял с расширением xls.

.cvs?

← →
saxon (2006-11-16 19:10) [3]

ой, простите конечно же - .csv

← →
Anatoly Podgoretsky © (2006-11-16 20:40) [4]

> Svoja4ok (16.11.2006 18:18:00) [0]

Зайди на мою страницу

← →
Anatoly Podgoretsky © (2006-11-16 20:41) [5]

> saxon (16.11.2006 19:10:03) [3]

Не играет роли в данном случае, в программе логическая ошибка

← →
saxon (2006-11-16 21:11) [6]

> Anatoly Podgoretsky © (16.11.06 20:41) [5]

Пришел сюда из
http://delphimaster.ru/cgi-bin/forum.pl?last=50
а там это - основная (может уже была)
есть недостатки такого подхода :)

← →
palva © (2006-11-16 21:14) [7]

А зачем выводить "TAB"? Это ведь трехсимвольная строка. A нужен, наверно, символ табуляции, а это будет #9

← →
Anatoly Podgoretsky © (2006-11-16 21:36) [8]

> saxon (16.11.06 21:11) [6]

Говоришь загадками я не пойму про что ты.
Если про код, то подход нормальный, но реализация неправильная. Автору надо прочитать про работу с файлами.

← →
Svoja4ok (2006-11-16 23:22) [9]

palva
TAB- имел ввиду что ставил символ табуляции кнопкой таб, простите что забыл пояснить...

saxon (16.11.06 19:10) [3]
ой, простите конечно же - .csv

пробывал, разбивает, но опять проблема- иероглифы...

Anatoly Podgoretsky, а где она, если не секрет?

← →
Anatoly Podgoretsky © (2006-11-16 23:38) [10]

> Svoja4ok (16.11.2006 23:22:09) [9]

Ты сходил на сайты за статьями?
Ну и ответ тебе тоже дали, надо использовать в качестве разделителя символ ТАБ, а не строку.

← →
Svoja4ok (2006-11-16 23:59) [11]

на какие сайты?
нет, это понятно что нада символ табуляции, а что с иероглифами делать которые вместо букв?

Я приглашал на свой, у меня там есть статья по файлам Паскаля.
Palladin приглашал на свой, видимо то же есть что-то подобное.
Тебе надо немного почитать теорию.

← →
Svoja4ok (2006-11-18 15:12) [13]

Palladin скачал с твоей страницы flexcell, но никак не пойму как его портировать в Д8 или Д2006? То как там написано в ридми не прокатывает: Just open it with file- open and click Install... Он мне просто говорит что чтобы открыть проект нужно его проапгрейдить, нажимаю ОК и он его открывает как простой проект... что сделать то нужно?

фиг знает, я использую d6

Просто в XLS... сбился с ног... Найти похожие ветки