|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как добавить строку в txt файл
Мне нужно добавление строки в txt файл, который будет лежать в папке с проектом. Как такое сделать?
Именно добавление строки, а не сохранение всего файла по кнопке Только учусь Delphi... |
#2
|
||||
|
||||
Открыть файл, дописать в конец, закрыть.
Варианты решений гуглятся на раз-два-три. Хоть тот же Append. jmp $ ; Happy End! The Cake Is A Lie. |
Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
DeOne (12.11.2012)
|
#3
|
||||
|
||||
Только учусь Delphi... |
#4
|
||||
|
||||
И еще вопросик
AssignFile(myFile, 'Test.txt'); ReWrite(myFile); где myfile, это сслыка, но как она будет выглядеть: C:....\....\....*.txt или C:....\....\.... Только учусь Delphi... |
#5
|
||||
|
||||
По твоей же ссылке ответ на твой вопрос. Переменная myFile объявлена. Это переменная типа "текстовый файл".
jmp $ ; Happy End! The Cake Is A Lie. |
#6
|
||||
|
||||
И все равно не понял, что там должно находиться
Только учусь Delphi... |
#7
|
||||
|
||||
File в делфи - структура. Основываясь на его функционале могу сделать только два вывода: что там хранится Handle и наверное имя. Возможно еще указатель файла, хотя не факт. Назначение остальных полей я не знаю, и реверсить их мне не интересно.
File это стандартная структура делфи для работы с файлами. Ее устройство знать не нужно для работы (его еще попробуй найти). AssignFile привязывает к файлу имя, ReWrite/Append/Reset открывают файл. CloseFile закрывает. Это все можно было бы запросто нагуглить, причем быстрее, чем ждать ответа на форуме. jmp $ ; Happy End! The Cake Is A Lie. |
#8
|
||||
|
||||
Код:
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
|
||||
|
||||
Код:
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; Пишу программы за еду. __________________ |