Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Чтение из файла txt построчно и сохранение в массив. Как сделать?  (Прочитано 19330 раз)
0 Пользователей и 1 Гость смотрят эту тему.
nilanerda
Интересующийся

ru
Offline Offline
Пол: Женский

« : 26-01-2012 07:05 » 

Подскажите пожалуйста. Как прочитать из файла не все сразу а построчно, или например до '.'
Как в коде записать? Делаю так не работает: только весь файл читается

Код: (Delphi)
var buf: String[200];
    k: array[1..20] of integer;
    i, j, ch: integer;
begin

  AssignFile (fV, 'textfile\0V.txt');
  Reset (fV);
  j := 0;
  ch := 0;
  while not EOF(fV) do
     
begin
     readln(fV, buf);
     Memo1.Lines.Add(buf);  
     end;
     
{while not EOF(fV) do
       if Pos(Buf[i],'.') > 0 then
        begin
         k[j] := i;        
         ch := ch + 1;    
         j := j + j;
      end;}

 
 
 
   {   i := 0;
     while not EOF(fV) do
      begin
       i := i + 1;
       arrayV[j] := arrayV[j] + buf[i];
       if Pos(Buf[i],'.') > 0 then  begin
                                    j := j + 1;
                                    break;
                                    end;
 

       end; }

CloseFile (fV);





то что в кавычках не работает, не первое не второе
 
« Последнее редактирование: 26-01-2012 16:25 от RXL » Записан
zubr
Гость
« Ответ #1 : 26-01-2012 07:58 » 

Функция readln и есть чтение построчно.
Для чтения до точки алгоритм следующий:
1. Читаем построчно.
2. Проверяем строку на наличие точки (функция Pos).
3. Если точка есть, запоминаем ее позицию и удаляем часть строки после точки (функция Delete). Выходим из цикла чтения файла.
Записан
nilanerda
Интересующийся

ru
Offline Offline
Пол: Женский

« Ответ #2 : 26-01-2012 16:01 » 

спасибо, получилось
Записан
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #3 : 26-01-2012 16:27 » new

http://www.delphisources.ru/pages/faq/faq_delphi_basics/AssignFile.php.html
Записан

С уважением, Oldy.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines