"...в фс нет..типа данных ShortStrings..." -->> ссылка
выполни Оффтоп
delphi Код:
var
a:string;
i:integer;
procedure Init; //Вызывается при включении скрипта
begin
for i:=1 to 500 do
begin
a:=a+'-'+inttostr(i);
end;
Sendmsg('a = '+a+' === '+inttostr(length(a)))
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
end.
и сам увидишь сколько байт в а
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 15.07.2011 в 18:39.
|