Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.52/21: Рейтинг темы: голосов - 21, средняя оценка - 4.52
19 / 12 / 4
Регистрация: 19.05.2009
Сообщений: 1,829
1

Добавить строку в файл

02.07.2011, 20:19. Показов 3901. Ответов 5
Метки нет (Все метки)

Блин, совсем из головы все повылетало.
есть следующее:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type
  TSpravTkan = packed record
     Number: Integer;
     Name: String[20];
  end;
...
var
  SpravTkan: TSpravTkan;
  SpravTkanFile: File of TSpravTkan;
...
 
Filename:=currentpath+'\dat\tkan.dat';
AssignFile(SpravTkanFile,Filename);
if not fileexists(filename) then
Rewrite(SpravTkanFile) else Reset(SpravTkanFile);
Далее мне нужно добавить вниз файла строку или несколько строк - никак не пойму как добавить. Делаю обычный
Delphi
1
write(SpravTkanFile, SpravTkan);
и в итоге ничего не добавляется. а если пробую через append - дает ошибку.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.07.2011, 20:19
Ответы с готовыми решениями:

Добавить строку в файл
нужно добавить строку в файл (консольное приложение)

Добавить в файл строку, вставив после каждого символа пробел
Нужно добавить в файл (отображаемый в Memo) текст из Edit, да так, чтобы между символами были...

TStringList и TFileStream: добавить строку в файл
Нужно разобраться. Смысл в следующем. Есть файл текстовый, открываю в потоке, с запретом на чтение...

Добавить строку в текстовый файл. Выдает ошибку
Здравствуйте) Нужно добавит сроку в текст файл. Прочитал в книге и нашел пример по которому...

5
13 / 13 / 6
Регистрация: 02.07.2011
Сообщений: 62
02.07.2011, 21:25 2
Лучший ответ Сообщение было отмечено как решение

Решение

Delphi
1
seek(SpravTkanFile,filesize(SpravTkanFile));
ставим на показчик в конец файла
Delphi
1
write(SpravTkanFile, SpravTkan);
попробуй так
3
19 / 12 / 4
Регистрация: 19.05.2009
Сообщений: 1,829
02.07.2011, 21:49  [ТС] 3
спасибо, подошло.
0
Петррр
02.07.2011, 23:34
  #4
 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
1
13 / 13 / 6
Регистрация: 02.07.2011
Сообщений: 62
02.07.2011, 23:50 5
пасиб))
буду знать))
0
19 / 12 / 4
Регистрация: 19.05.2009
Сообщений: 1,829
03.07.2011, 14:39  [ТС] 6
Цитата Сообщение от Петррр Посмотреть сообщение
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
самое смешное, что вчера вечером я и хотел нажать на эту кнопку, но ее почему то не было. Сегодня нажал.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 14:39

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Файл: Добавить в конец каждой строки файла Name1 соответствующую строку файла Name2.
В общем я только начал разбираться с Delphi и пере до мной возникла такая проблема: Даны два...

Добавить строку в StringGrid
Доброго времени суток всем, хочу добавить строку , но она встаёт не там где нужно. Вообщем есть...

Добавить в строку дату
Здравствуйте уважаемые форумчане! Не судите строго, программировать только начинаю. Суть проблемы...

Добавить строку в ComboBox
Доброго времени суток. Добавил на форму обьект ComboBox1. Хочу, что бы пользователь открывая форму...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.