Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.11.2007, 17:53
Slawka_SoD Slawka_SoD вне форума
Прохожий
 
Регистрация: 20.11.2007
Сообщения: 2
Репутация: 10
По умолчанию Хранение в Массиве строк с более 255 символами

Проблема такая.

Имеется два списка вида (в принципе как надо такой и сделаем)

Код:
1 Текст длинный символов 300
5 Тоже текст числа в начале ключи идут не попорядку
8 Маленький текст

И в таком духе второй тока с подобными ключами.
В массив при разработке не влазят пишут мол больше 255 знаков.
Сейчас проблему решили чтением из файлов (каждому списку свой файл) и дальше его парсим
Код:
	AssignFile(F,File_Name);
	Reset(F);

	while not EOF(F) do
  begin
		Readln(F, S);
		Buf:=Explode(':=:',S);
     if(strtoint(Buf[0])=strtoint(Edit1.Text)) then
      begin
        Form2.Memo1.Lines.Text:='';
        Form2.Memo1.Lines.Add('#'+Buf[0]);
        Form2.Memo1.Lines.Add(StringReplace(Buf[1],'\n',#13,[rfReplaceAll, rfIgnoreCase]));
      end;
	end;
	CloseFile(F);

Так вот как-то это не правильно давать юзеру открытые файлы даи много выходит 3 файла на маленький скриптик.


Можно как нить это все в один закинуть файл или как максимум в два нечитаемых
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:03.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025