Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание отчёта в txt. / 10 сообщений из 10, страница 1 из 1
28.09.2003, 20:03
    #32277670
lamerok
lamerok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
Нужно чтобы при нажатии на кнопочку "Отчёт" данные из проги передавались в файл Text.txt. Вот какой пример я нашёл:

procedure TForm1.ReportClick(Sender: TObject);
var
Word: Variant;
begin
Word := CreateOleObject('Txt.Basic');
Word.FileNew('Normal');
Word.Insert('This is the first line'#13);
Word.Insert('This is the second line'#13);
Word.FileSaveAs('C\test.txt');
end;

Однако Word совсем не устраивает (нет его на компе), поэтому вопрос:
можно ли по OLE вызывать Блокнот?

И ещё, не плохо было бы записывать файл в ту папку, откуда запускается прога (FileSaveAS('\test.txt') не помогает).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2003, 20:25
    #32277674
drbond
drbond
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
>Word.FileSaveAs('C\test.txt'); ???
А может указать путь без ошибок синтаксиса? А вообще-то файл указанный без пути (и даже без "\") сохраняется Дельфёй в каталоге программы.
Блокнот вызвать можно. Пример взаимодействия с ним в качестве OLE объекта смотри в папке с примерами посвящённой JScript.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2003, 20:37
    #32277678
lamerok
lamerok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
drbond: А может указать путь без ошибок синтаксиса? А вообще-то файл указанный без пути (и даже без "\") сохраняется Дельфёй в каталоге программы.

Враки-враки. Сам проверял - сохраняет в Мои документы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2003, 20:48
    #32277679
lamerok
lamerok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
Очепятки

написано: Word.FileSaveAs('C\test.txt');
следует читать: Word.FileSaveAs('C:\test.txt');
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2003, 21:32
    #32277688
Denis A.
Denis A.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
var
  ts:TStringList;
begin
  ts:=TStringList.Create;
  try
    ts.Add('This is the first line'); 
    ts.Add('This is the second line');
    ts.SaveToFile('C\test.txt');
  finally
    ts.Free;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2003, 22:59
    #32277698
drbond
drbond
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
Да вот и без Блокнота обошлись :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2003, 23:23
    #32277701
lamerok
lamerok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
А Stringlist ни как не ограничен объёмом текста, а то начну отчёт писать - а потом облом?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2003, 08:46
    #32277777
TanyaR
TanyaR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
ExtractFilePath(ParamStr(0)) -возвращает путь, откуда запускается программа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2003, 09:00
    #32277781
zDIV
zDIV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
TStringList, по-моему, особо не ограничен (судя по TStringList.Grow и TStringList.SetCapacity).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2003, 09:04
    #32277782
zDIV
zDIV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчёта в txt.
Ограничен числом MaxListSize = Maxint div 16;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание отчёта в txt. / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]