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