Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.11.2012, 20:32
Аватар для DeOne
DeOne DeOne вне форума
Новичок
 
Регистрация: 24.09.2012
Сообщения: 86
Версия Delphi: 7
Репутация: 10
По умолчанию Как добавить строку в txt файл

Мне нужно добавление строки в txt файл, который будет лежать в папке с проектом. Как такое сделать?

Именно добавление строки, а не сохранение всего файла по кнопке
__________________
Только учусь Delphi...
Ответить с цитированием
  #2  
Старый 12.11.2012, 21:01
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Открыть файл, дописать в конец, закрыть.
Варианты решений гуглятся на раз-два-три. Хоть тот же Append.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
DeOne (12.11.2012)
  #3  
Старый 12.11.2012, 21:07
Аватар для DeOne
DeOne DeOne вне форума
Новичок
 
Регистрация: 24.09.2012
Сообщения: 86
Версия Delphi: 7
Репутация: 10
По умолчанию

Спасибо, я просто не знал, как эта функция вообще называется.

http://www.delphibasics.ru/Append.php
__________________
Только учусь Delphi...
Ответить с цитированием
  #4  
Старый 12.11.2012, 21:10
Аватар для DeOne
DeOne DeOne вне форума
Новичок
 
Регистрация: 24.09.2012
Сообщения: 86
Версия Delphi: 7
Репутация: 10
По умолчанию

И еще вопросик

AssignFile(myFile, 'Test.txt');
ReWrite(myFile);

где myfile, это сслыка, но как она будет выглядеть:
C:....\....\....*.txt
или
C:....\....\....
__________________
Только учусь Delphi...
Ответить с цитированием
  #5  
Старый 12.11.2012, 21:13
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

По твоей же ссылке ответ на твой вопрос. Переменная myFile объявлена. Это переменная типа "текстовый файл".
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #6  
Старый 12.11.2012, 21:19
Аватар для DeOne
DeOne DeOne вне форума
Новичок
 
Регистрация: 24.09.2012
Сообщения: 86
Версия Delphi: 7
Репутация: 10
По умолчанию

И все равно не понял, что там должно находиться
__________________
Только учусь Delphi...
Ответить с цитированием
  #7  
Старый 12.11.2012, 21:26
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

File в делфи - структура. Основываясь на его функционале могу сделать только два вывода: что там хранится Handle и наверное имя. Возможно еще указатель файла, хотя не факт. Назначение остальных полей я не знаю, и реверсить их мне не интересно.
File это стандартная структура делфи для работы с файлами. Ее устройство знать не нужно для работы (его еще попробуй найти). AssignFile привязывает к файлу имя, ReWrite/Append/Reset открывают файл. CloseFile закрывает.
Это все можно было бы запросто нагуглить, причем быстрее, чем ждать ответа на форуме.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #8  
Старый 13.11.2012, 08:45
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

Код:
var
   tmp:TStringList;
begin
   tmp:=TstringList.Create;
   tmp.Clear;
   tmp.LoadFromFile('c:\MyFile.txt');
   tmp.Add('MyNewString');// добавление строки к файлу
   tmp.Insert(0,'MyNewString');// вставка строки в позицию 0 (первая строка)
   tmp.SaveFile('c:\MyFile.txt');
   FreeAndNil(tmp);
end;
__________________
Понять, что хочет заказчик - бесценно, ведь он платит MasterCard
Ответить с цитированием
  #9  
Старый 13.11.2012, 08:46
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
procedure WriteLog(s: String);
var
  hFile: THandle;
  Dummy: Cardinal;
begin
  hFile:=CreateFile('ShazamID.log', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
  if hFile<>INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hFile, 0, nil, FILE_END);
    s:=DateTimeToStr(Now)+': '+s+#13#10;
    WriteFile(hFile, PChar(s)^, Length(s), Dummy, nil);
    CloseHandle(hFile);
  end;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:41.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter