[Slawka_SoD]

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

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

Код:

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 файла на маленький скриптик.


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

[AlexSku]

Сообщение от Slawka_SoD

В массив при разработке не влазят пишут мол больше 255 знаков.

Как это в массив не влазят? Всё влазит:

Код:

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;

[Slawka_SoD]

Ты немного не понял.
Имеется в виду что нельзя вставить данный массив в код или какнить скрыть на текущий момент забирается из текстового файла.

Код:

local[91]:='Неправильный выбор транзитной сети.';
local[95]:='Неправильное или непредусмотренное сообщение.\nПоявляется только тогда, когда в классе недействительных сообщений не возникает других значений.';
local[96]:='Отсутствует обязательный информационный элемент.\nОборудование, создающее это значение, получило сообщение, не содержащее информационного элемента, который должен присутствовать в сообщении до того, как оно может быть подвергнуто обработке.';
local[97]:='Тип сообщения не существует или не реализован.\nОборудование, создающее это значение, получило сообщение, тип которого ему не знаком, потому что это сообщение либо не расшифровано, либо расшифровано, но не введено в эксплуатацию на данном оборудовании.';
local[98]:='Сообщение несовместимо с состоянием вызова или его тип не существует или не введен в эксплуатацию.\nОборудование, создающее это значение, получило сообщение, которое оно рассматривает как не допустимое в состоянии вызова; или же было получено сообщение STATUS, указывающее на несовместимое состояние вызова.';
local[99]:='Информационный элемент не существует или не реализован.\nОборудование, создающее это значение, получило сообщение, включающее неопознанные информационные элементы, так как идентификатор информационного элемента не определен, а если определен, то не введен в эксплуатацию на инструменте, создающем новое значение. Однако информационный элемент не обязательно должен присутствовать в сообщении для того, чтобы дать возможность оборудованию, создающему данное значение, провести его обработку.';
local[100]:='Сообщение содержит некорректный информационный элемент.\nОборудование, создающее данное значение, получило информационный элемент, который оно ввело в эксплуатацию. Однако оборудование было не в состоянии ввести в эксплуатацию код, так как одно или несколько полей были неправильно закодированы.';