Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.09.2011, 19:17   #1
VladimirNew
Пользователь
 
Регистрация: 27.05.2011
Сообщений: 74
Злость Проблем в работе с txt

Суть вот в чем, мне нужно, что бы по нажатию на кнопку текст из Edit записывался в определенную строку текстовом файле (txt), а затем из этого файла опять же из определенной строки текст выводился в Label.
поможете?
VladimirNew вне форума Ответить с цитированием
Старый 16.09.2011, 23:20   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

самый простой в реализации способ,
грузить весь текстовый файл в переменную типа TStringList
потом изменить нужную строку
и записать файл.
Код:
// записать в нужную строку
  var ts : TStringList;
...
begin
   ts := TStringList.Create;
   try
     ts.LoadFromFile('Полный путь и ИмяТекстового файла');
     ts.Strings[0] := Edit1.Text; // в первую строчку вставили текст из Edit1
     // сохранили файл
     ts.SaveToFile('ПолныйПуть и ИмяТекстовогоФайла'); 
   finally
     FreeAndNil(ts);
   end;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.09.2011, 07:46   #3
VladimirNew
Пользователь
 
Регистрация: 27.05.2011
Сообщений: 74
По умолчанию

а ну записи в файл я добился. а мне же надо еще и вывести в Label. и все это в одном коде.
вот в чем проблема.
VladimirNew вне форума Ответить с цитированием
Старый 17.09.2011, 08:20   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
Label.Caption:=ts[номер строки];
Если конечно номер строки не превышает ts.count.
При этом ts создавай один раз при запуске, и освобождай в конце (так сказать) программы.
Загрузка из файла - ts.LoadFromFile(имя файла).
Но делать это нужно только если файл изменился не посредством твоей программы, а из внешнего источника (допустим ты блокнот открыл и поменял).
Грузить заново каждый раз файл, чтоб получить одну строку неэффективно и бессмысленно.
Ферштейн, камраде?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.09.2011, 16:10   #5
alexdelphi
Пользователь
 
Регистрация: 24.08.2011
Сообщений: 40
По умолчанию

А зачем загонять файл в TStringList? Старый AssignFile/reset и т.д. никто еще не отменял
alexdelphi вне форума Ответить с цитированием
Старый 17.09.2011, 16:13   #6
Surgeon
Форумчанин
 
Регистрация: 04.10.2007
Сообщений: 106
По умолчанию

Цитата:
Сообщение от alexdelphi Посмотреть сообщение
А зачем загонять файл в TStringList? Старый AssignFile/reset и т.д. никто еще не отменял
Это ж массив строковый и удобнее обращатся к определенной строке по ее номеру, об этом и сабж.
Все не так плохо, как вам кажется, на самом деле все гораздо хуже.
http://delphiworld.narod.ru/dw.html - 5000 статей!!! удобный поиск, оффлайн сборник, рекомендую всем
Surgeon вне форума Ответить с цитированием
Старый 17.09.2011, 16:29   #7
alexdelphi
Пользователь
 
Регистрация: 24.08.2011
Сообщений: 40
По умолчанию

Хм... точно
alexdelphi вне форума Ответить с цитированием
Старый 17.09.2011, 16:38   #8
VladimirNew
Пользователь
 
Регистрация: 27.05.2011
Сообщений: 74
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:
Label.Caption:=ts[номер строки];
Если конечно номер строки не превышает ts.count.
При этом ts создавай один раз при запуске, и освобождай в конце (так сказать) программы.
Загрузка из файла - ts.LoadFromFile(имя файла).
Но делать это нужно только если файл изменился не посредством твоей программы, а из внешнего источника (допустим ты блокнот открыл и поменял).
Грузить заново каждый раз файл, чтоб получить одну строку неэффективно и бессмысленно.
Ферштейн, камраде?
если честно у меня знаний не хватает это обработать в своей голове.
наверное слишком жирно было рассчитывать на готовый полный код?
VladimirNew вне форума Ответить с цитированием
Старый 17.09.2011, 16:57   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
слишком жирно было рассчитывать на готовый полный код?
Ага. Рассчитывай на свои попытки изучения, чтения литературы и статей. а самое главное - посмотри в хелпе как устроен TStringList, какие методы и свойства он имеет и как ими пользоваться.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Несколько проблем в RichEdit Dima DDM Общие вопросы Delphi 0 16.05.2011 19:44
Проблем с Кулером Light703 Компьютерное железо 2 18.06.2010 14:12
проблем с написанием RaMZeS>>> Общие вопросы Delphi 0 25.05.2010 17:07
Диагностика проблем связей stas77 Microsoft Office Excel 1 19.11.2009 08:59
Несколько проблем anatolin Microsoft Office Excel 5 01.12.2008 00:39