Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];
ВнизПросто в 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]на какие сайты?
нет, это понятно что нада символ табуляции, а что с иероглифами делать которые вместо букв?
← →
Anatoly Podgoretsky © (2006-11-17 00:01) [12]Я приглашал на свой, у меня там есть статья по файлам Паскаля.
Palladin приглашал на свой, видимо то же есть что-то подобное.
Тебе надо немного почитать теорию.
← →
Svoja4ok (2006-11-18 15:12) [13]Palladin скачал с твоей страницы flexcell, но никак не пойму как его портировать в Д8 или Д2006? То как там написано в ридми не прокатывает: Just open it with file- open and click Install... Он мне просто говорит что чтобы открыть проект нужно его проапгрейдить, нажимаю ОК и он его открывает как простой проект... что сделать то нужно?
← →
Palladin © (2006-11-18 15:20) [14]фиг знает, я использую d6
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.058 c