powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как добавить в информацию в текстовый файл
5 сообщений из 5, страница 1 из 1
Как добавить в информацию в текстовый файл
    #32277788
TanyaR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как записать в текстовый файл понятно, а вот как дабавить в уже созданный текстовый файл информацию.....например из TextListBox? или хотя бы слепить из двух текстовых файлов один?
...
Рейтинг: 0 / 0
Как добавить в информацию в текстовый файл
    #32277809
Фотография 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
Как добавить в информацию в текстовый файл
    #32277812
srf2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а кто говорил про OLE?
...
Рейтинг: 0 / 0
Как добавить в информацию в текстовый файл
    #32277821
Фотография daw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да ладно, эт я так уж... :) тут просто начало было:\r
/topic/50932
...
Рейтинг: 0 / 0
Как добавить в информацию в текстовый файл
    #32277829
Фотография daw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хоп, ShowMessage, конечно, тут лишний :)
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как добавить в информацию в текстовый файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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