Длинные строки в pascal

Question

Я хочу, чтобы иметь возможность использовать длинную строку (не более 100000 знаков). Насколько я знаю, типичная строковая переменная может содержать только до 256 символов. Есть ли способ хранить такую ​​длинную строку?

Answer 1

Строки старого стиля (Turbo Pascal или Delphi 1), теперь известные как ShortString, ограничены 255 символами (байт 0 зарезервирован для длины строки). По-прежнему это значение по умолчанию используется в FreePascal (согласно комментарию @ MarcovandeVoort ниже). Продолжайте читать, пока вы не дойдете до обсуждения и кода для AnsiString ниже. :-)

В настоящее время большинство других диалектов Pascal я знаю по умолчанию либо AnsiString (длинные строки однобайтовых символов), либо UnicodeString (длинные строки многобайтовых символов). Ни один из них не ограничен 255 символами.

Текущие версии Delphi по умолчанию равны UnicodeString как тип по умолчанию, поэтому объявление переменной string на самом деле является длинным UnicodeString. Там нет никакого практического верхнего предела длины строки:

var 
    Test: string; // Declare a new Unicode string 
begin 
    SetLength(Test, 100000); // Initialize it to hold 100000 characters 
    Test := StringOfChar('X', 100000); // Fill it with 100000 'X' characters 
end; 

Если вы хотите, чтобы заставить однобайтовые символы (но не ограничивается 255 символьных строк), используйте AnsiString (который можно установить по умолчанию string типа в FreePascal, если вы используете директиву компилятора {$H+} - благодаря @MarcovandeVoort):

var 
    Test: AnsiString; // Declare a new Ansistring 
begin 
    SetLength(Test, 100000); // Initialize it to hold 100000 characters 
    Test := StringOfChar('X', 100000); // Fill it with 100000 'X' characters 
end; 

Наконец, если вы сделать по неизвестной причине хотите использовать старый стиль ShortString, который ограничен 255 символами, объявить его как таковой , eithe г используя ShortString или старый стиль String[Size] заявление:

var 
    Test: ShortString; // Declare a new short string of 255 characters 
    ShortTest: String[100]; // Also a ShortString of 100 characters 
begin 
    // This line won't compile, because it's too large for Test 
    Test := StringOfChar('X', 100000); // Fill it with 100000 'X' characters 
end; 

Answer 2

Вы можете использовать AnsiString type.

Answer 3

При использовании Free Pascal, вам не нужно быть беспокоиться об этом. Вам нужно только вставить директиву {$ H +} в начало источника.

{$H+} 

var s: String; 

begin 
    s := StringOfChar('X', 1000); 
    writeln(s); 
end. 

Конечно, вы можете использовать {$mode objfpc} и {$coperators}. http://www.freepascal.org/docs-html/prog/progch1.html