Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как добавить в информацию в текстовый файл / 5 сообщений из 5, страница 1 из 1
29.09.2003, 09:18
    #32277788
TanyaR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить в информацию в текстовый файл
Как записать в текстовый файл понятно, а вот как дабавить в уже созданный текстовый файл информацию.....например из TextListBox? или хотя бы слепить из двух текстовых файлов один?
...
Рейтинг: 0 / 0
29.09.2003, 09:44
    #32277809
daw
daw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить в информацию в текстовый файл
Люди, да вы чего, вообще??? OLE для записи в текстовый файл это, имхо, малость крутовато...
во:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
var
  myFile : TextFile;
  myStr : string;
begin
  AssignFile(myFile, 'd:\my\001.txt');
  Append(myFile); //добавить в файл
  // Rewrite(myFile); //перезаписать файл
  myStr := 'asdfghjkl';
  ShowMessage(mystr + '   ' + inttostr(length(myStr)));
  WriteLn(myFile, myStr);
  CloseFile(myFile);
end;
...
Рейтинг: 0 / 0
29.09.2003, 09:46
    #32277812
srf2000
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить в информацию в текстовый файл
а кто говорил про OLE?
...
Рейтинг: 0 / 0
29.09.2003, 09:50
    #32277821
daw
daw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить в информацию в текстовый файл
да ладно, эт я так уж... :) тут просто начало было:\r
/topic/50932
...
Рейтинг: 0 / 0
29.09.2003, 09:54
    #32277829
daw
daw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить в информацию в текстовый файл
хоп, ShowMessage, конечно, тут лишний :)
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как добавить в информацию в текстовый файл / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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