Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Правильное оформление кода ? (Delphi XE) 
:(
    Опции темы
Campus2000
Дата 24.2.2018, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.2.2018

Репутация: нет
Всего: нет



В этом коде out of memory. Не могу понять как сделать чтение по строчкам?.

Код

var All, f1, f2, f3: TStringList;
     i: integer;
begin

 All := TStringList.Create;
 f1 := TStringList.Create;
 f2 := TStringList.Create;
 f3 := TStringList.Create;
 All.LoadFromFile(OpenDialog1.FileName);
 for i := 0 to All.Count - 1 do
  begin
  if CheckBox1.Checked then
  begin
    if Pos(Edit1.Text, All.Strings[i]) > 0 then f1.Add(All.Strings[i]);
  end;
    if CheckBox2.Checked then
    begin
    if Pos(Edit2.Text, All.Strings[i]) > 0 then f2.Add(All.Strings[i]);
    end;
      if CheckBox3.Checked then
      begin
    if Pos(Edit3.Text, All.Strings[i]) > 0 then f3.Add(All.Strings[i]);
      end;
  end;
 All.Free;
 if CheckBox1.Checked then
 begin
 f1.SaveToFile('Organization.txt');
 end;
 if CheckBox2.Checked then
 begin
 f2.SaveToFile('Working.txt');
 end;
 if CheckBox3.Checked then
 begin
 f3.SaveToFile('Types.txt');
 end;
 f1.Free;

PM MAIL   Вверх
Romikgy
Дата 24.2.2018, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146





--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1067 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.