ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание отчёта в txt.
10 сообщений из 10, страница 1 из 1
Создание отчёта в txt.
    #32277670
lamerok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lamerok
Гость
Нужно чтобы при нажатии на кнопочку "Отчёт" данные из проги передавались в файл 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:03
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277674
Фотография drbond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drbond
Участник
>Word.FileSaveAs('C\test.txt'); ???
А может указать путь без ошибок синтаксиса? А вообще-то файл указанный без пути (и даже без "\") сохраняется Дельфёй в каталоге программы.
Блокнот вызвать можно. Пример взаимодействия с ним в качестве OLE объекта смотри в папке с примерами посвящённой JScript.
...
Рейтинг: 0 / 0
28.09.2003, 20:25
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277678
lamerok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lamerok
Гость
drbond: А может указать путь без ошибок синтаксиса? А вообще-то файл указанный без пути (и даже без "\") сохраняется Дельфёй в каталоге программы.

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

написано: Word.FileSaveAs('C\test.txt');
следует читать: Word.FileSaveAs('C:\test.txt');
...
Рейтинг: 0 / 0
28.09.2003, 20:48
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277688
Denis A.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis A.
Участник
Код: 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, 21:32
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277698
Фотография drbond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drbond
Участник
Да вот и без Блокнота обошлись :)
...
Рейтинг: 0 / 0
28.09.2003, 22:59
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277701
lamerok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lamerok
Гость
А Stringlist ни как не ограничен объёмом текста, а то начну отчёт писать - а потом облом?
...
Рейтинг: 0 / 0
28.09.2003, 23:23
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277777
TanyaR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TanyaR
Гость
ExtractFilePath(ParamStr(0)) -возвращает путь, откуда запускается программа
...
Рейтинг: 0 / 0
29.09.2003, 08:46
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277781
zDIV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zDIV
Участник
TStringList, по-моему, особо не ограничен (судя по TStringList.Grow и TStringList.SetCapacity).
...
Рейтинг: 0 / 0
29.09.2003, 09:00
| Ответить | Цитировать | Написать  
Создание отчёта в txt.
    #32277782
zDIV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zDIV
Участник
Ограничен числом MaxListSize = Maxint div 16;
...
Рейтинг: 0 / 0
29.09.2003, 09:04
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание отчёта в txt.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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