|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Хранение в Массиве строк с более 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 файла на маленький скриптик. Можно как нить это все в один закинуть файл или как максимум в два нечитаемых |
#2
|
|||
|
|||
Цитата:
Код:
var M: array[0..1] of String; procedure TForm1.FormCreate(Sender: TObject); var S: String; begin S := StringOfChar('A', 300); M[0]:= S; S := StringOfChar('B', 300); M[1]:= S; Memo1.Lines.Add(M[0]); Memo1.Lines.Add(M[1]); end; |
#3
|
|||
|
|||
Ты немного не понял.
Имеется в виду что нельзя вставить данный массив в код или какнить скрыть на текущий момент забирается из текстового файла. Код:
local[91]:='Неправильный выбор транзитной сети.'; local[95]:='Неправильное или непредусмотренное сообщение.\nПоявляется только тогда, когда в классе недействительных сообщений не возникает других значений.'; local[96]:='Отсутствует обязательный информационный элемент.\nОборудование, создающее это значение, получило сообщение, не содержащее информационного элемента, который должен присутствовать в сообщении до того, как оно может быть подвергнуто обработке.'; local[97]:='Тип сообщения не существует или не реализован.\nОборудование, создающее это значение, получило сообщение, тип которого ему не знаком, потому что это сообщение либо не расшифровано, либо расшифровано, но не введено в эксплуатацию на данном оборудовании.'; local[98]:='Сообщение несовместимо с состоянием вызова или его тип не существует или не введен в эксплуатацию.\nОборудование, создающее это значение, получило сообщение, которое оно рассматривает как не допустимое в состоянии вызова; или же было получено сообщение STATUS, указывающее на несовместимое состояние вызова.'; local[99]:='Информационный элемент не существует или не реализован.\nОборудование, создающее это значение, получило сообщение, включающее неопознанные информационные элементы, так как идентификатор информационного элемента не определен, а если определен, то не введен в эксплуатацию на инструменте, создающем новое значение. Однако информационный элемент не обязательно должен присутствовать в сообщении для того, чтобы дать возможность оборудованию, создающему данное значение, провести его обработку.'; local[100]:='Сообщение содержит некорректный информационный элемент.\nОборудование, создающее данное значение, получило информационный элемент, который оно ввело в эксплуатацию. Однако оборудование было не в состоянии ввести в эксплуатацию код, так как одно или несколько полей были неправильно закодированы.'; |