![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Проблема такая.
Имеется два списка вида (в принципе как надо такой и сделаем) Код:
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 файла на маленький скриптик. Можно как нить это все в один закинуть файл или как максимум в два нечитаемых |