чёнибудь покрупнее STRING'а

itwork · Сообщение **itwork** » 31.03.2007 14:47:09

Люди есть в паскале ченибудь покрупнее STRING'а, т.е. чтоб болше чем 255 символов влезало????

Serge30 · Сообщение **Serge30** » 31.03.2007 15:11:25

Есть! AnsiString или тот же String

AnsiString - это динамические строки, туда можна пихать до 2Гб.

При {$H+} String стает тем же самым что и AnsiString. {$H+} устанавливается автоматом при {$mode objfpc} и {$mode delphi}.

Для этого их нужно объявлять:

Код: Выделить всё

{$mode objfpc}
var
  s: String;

Можна еще использовать PChar, правда там надо будет еще следить за выделением и освобождением памяти и пользоватся ими не совсем удобно (ИМХО).

alexs · Сообщение **alexs** » 31.03.2007 15:11:30

string

сйчас в string 2Г влазиет :-)

))

itwork · Сообщение **itwork** » 31.03.2007 16:10:20

Код: Выделить всё

{$mode delphi}
Uses
        Dos;
Var
       query: string;

PROCEDURE Init;
Begin
        writeln('content-type: text/html');
        writeln;
End;

Begin
    query:= getenv('QUERY_STRING');
    Init;
    writeln('<html>');
    writeln(query);
    writeln('</html>');
End.

теперь передаю значение
index.exe?fsdfs=dfgdfgdfgdfg dfg df gdfgdfgsdf dfgdfgdfg dfgdfgdfgdfgdfgd gfdfgdfgdg dgfgdfgdfgdf gdfgdfg dfgdfgdf gfd fgfdgdfg dgfdfg sdfgdf gdfgdfgd fgddfg dfgdf gdfgdfgdf g dgdf gg g dfg gf df gdfg dfgdfgd fgdfg g d fgdf gdf g gf gd fgd gdfgertergfrd gdfg d fgeergfdfgdf g gdfdfg sd sdffg sd gsd gsdf gsd gf s gdfsdgf gdf gsd s df gdfgdefg dfdf gdf gdf g df f sg gfdfgderergergdfgerftghgrdfggtr dr r erg dr gf dfg er 1111

но выдает вот такое (то есть обрезает строку)
fsdfs=dfgdfgdfgdfg%20dfg%20df%20gdfgdfgsdf%20dfgdfgdfg%20dfgdfgdfgdfgdfgd%20gfdfgdfgdg%20dgfgdfgdfgdf%20gdfgdfg%20dfgdfgdf%20gfd%20fgfdgdfg%20dgfdfg%20sdfgdf%20gdfgdfgd%20fgddfg%20dfgdf%20gdfgdfgdf%20g%20dgdf%20gg%20g%20

ЛЮди почему строка обрезается если она как вы говорите 2G??????????

shade · Сообщение **shade** » 31.03.2007 18:55:14

Добавь в начале {$H+}
Если не поможет значит Dos.getenv возвращает ShortString
Используй SysUtils.GetEnvironmentVariable

itwork · Сообщение **itwork** » 31.03.2007 19:08:37

shade писал(а):Добавь в начале {$H+}
Если не поможет значит Dos.getenv возвращает ShortString
Используй SysUtils.GetEnvironmentVariable

СПАСИБО за подсказку с SysUtils.GetEnvironmentVariable

bw · Сообщение bw » 01.04.2007 08:12:07

Насколько я понимаю в RTL (System) String является ShortString'ом. Правильно? Т.е. все функции RTL (каких-то модулей RTL) имеющие в качестве параметров String будут работать именно со строками длиной 255 символом?

..bw

shade · Сообщение **shade** » 01.04.2007 09:50:33

bw
SysUtils в основном работает с AnsiString. Или вы склонны считать что он не относиться к RTL

То что в модуле System {$H-} это еще не значит что он не использует AnsiString.

Видимо в данном случае, для совместимости в модуле Dos используется ShortString, потому что старый код может на это полагаться.

bw · Сообщение bw » 01.04.2007 16:08:33

Я не вы, я ты :-)

.
SysUtils я не рассматривал. Собственно я говорил только о System. Кажется crt тоже компилируется с ShortString. Все же это низкоуровневые, базовые модули и они задают правила игры. SysUtils и mode objfpc все же высокоуровневые модули. И их можно либо не использовать либо заменить своими.
Собственно я не спорю и не говорю что использование ShortString в System катастрофа, просто это нужно иметь ввиду, если функция из RTL использует String, то это вероятнее всего ShortString.

p.s. Assign и ChDir, к примеру, использут строки (и следовательно допустимо не больше 255 символов).

..bw

Attid · Сообщение **Attid** » 02.04.2007 13:40:18

ну раз здесь стринг обсуждается сюда добавлю:

код:

Код: Выделить всё

var str:string;
begin
  str := stdErr;
  //***--***//
end;

fMain.pas(1212,10) Error: Incompatible types: got "Text" expected "AnsiString"

что-то не пойму как мне тут приведение типов сделать ?
as string не пашет =/

Alexander · Сообщение **Alexander** » 02.04.2007 13:51:34

Attid писал(а):str := stdErr;

Круто ! Ты хочешь к сроке присвоить текстовый ФАЙЛ.

stdErr это файловая переменная означающая стандартный вывод ошибки.

WriteLn(stdErr, 'Ku Ku');

И не думаю что из него можно читать.

Attid · Сообщение **Attid** » 03.04.2007 12:21:48

это я переборщил с удалением writeln в консоль =)
надо в отпуск :roll:

bw · Сообщение bw » 04.04.2007 16:36:14

Не понял, нужен ли тебе этот StdErr, но на всякий случай:

Код: Выделить всё

procedure AssignMy(var f: Text);
begin
  Assign(f, '');
  TextRec(f).OpenFunc := @OpenMy;
  Rewrite(f);
end;

procedure OpenMy(var f: TextRec);
begin
  TextRec(f).InOutFunc := @WriteMy;
  TextRec(f).FlushFunc := @WriteMy;
  TextRec(f).CloseFunc := @CloseMy;
end;

...

begin
  Close(StdErr);
  AssignMy(StdErr);
...

Дальше стоит дело за реализацией указанных WriteMy и CloseMy. Сейчас понемногу портирую RTL на KolibriOS, так что немного навострился :-)

в таких делах.

..bw

alexs · Сообщение **alexs** » 05.04.2007 00:37:19

Сейчас понемногу портирую RTL на KolibriOS

И как успехи?
и вобще стоит ли смотреть на эту ОС - поделись впечатлениями

bw · Сообщение bw » 05.04.2007 18:38:39

Отписал в "личное", тут об этом говорить "невтему".

..bw