Модератор: Модераторы
ya_vanka » 04.04.2016 14:51:06
sts » 04.04.2016 15:18:36
Sizes of sets in TP/Delphi mode
Old behaviour: {$packset fixed} was the default for all language modes. This packs a set of up to 32 elements in 4 bytes, and all other sets in 32 bytes.
New behaviour: The default in TP/Delphi mode is now {$packset 1}
Effect: In those language modes the size of sets with 1..8 elements will now be 1 byte, and the size of sets with 9..16 elements will be two bytes. Sets with 17..32 elements will remain 4 bytes, but after that every additional 8 elements the size will increase by 1 byte up to 249..256 elements, which will result in a set of 32 bytes.
Reason: TP/Delphi compatibility.
Remedy: If you have code written in TP/Delphi mode that depends on the old packset setting, add {$packset fixed} to the source (after setting the syntax mode to Delphi/TP, since the mode switching changes the packset setting). This is backward compatible with at least FPC 2.2.4 and later.
ya_vanka » 04.04.2016 18:40:15
Aleksey Elin » 05.04.2016 13:49:25
procedure LogClear; forward;
procedure Log(const S : UnicodeString); forward;
function cvt(const s : string) : string;
begin
Result:=s
end;
const
cc = 'Привет мир';
procedure TForm1.Button1Click(Sender: TObject);
var
t : string;
s : UnicodeString;
i, n : Integer;
begin
LogClear;
t:=cc;
i:=SizeOf(t[1]); n:=SizeOf(cc[1]);
Log( IntToStr(i)+', '+IntToStr(n) ); // вывод 1, 1 -> обе строки t и cc однобайтные
Log( IntToStr(Length(t)) ); // длина 19 байт -> все ок, t - строка utf8
Log( IntToStr(Length(cc)) ); // длина 19 байт -> все ок, cc - строковая константа utf8
n:=0; i:=1;
while (i<=Length(t)) and (i<=Length(cc)) do begin
if t[i]=cc[i] then Inc(n);
Inc(i);
end;
Log( IntToStr(n) ); // число совпадающих байт 19 - строки побайтно равны
Log( t ); // выводится правильная строка
Log( cc ); // выводятся крякозыбры!!! несмотря на то что cc ничем не отличается от t!
s:=cc; Log( s ); // выводятся крякозыбры
s:=t; Log( s ); // выводится правильная строка
Log( SysToUTF8(cc) ); // выводится правильная строка
Log( cvt(cc) ); // выводится правильная строка
Log( string(cc) ); // неожиданно опять выводятся крякозыбры!!!
Log( 'Привет мир' ); // те же самые крякозябры...
end; sign » 05.04.2016 13:59:11
Aleksey Elin писал(а):Подозреваю что в константе cc неверно задана кодировка
Aleksey Elin » 05.04.2016 14:11:14
sign писал(а):Aleksey Elin писал(а):Подозреваю что в константе cc неверно задана кодировка
Кодировка константы = кодировке страницы.
Кодировка страницы - см.
const
cc = 'Привет мир';
----------------------------
var
t : string;
s : UncodeString;
----------------------------
s:=cc; // не работает
s:='Привет мир'; // не работает
s:=string('Привет мир'); // не работает
s:=string(cc); // не работает
t:=cc; s:=t; // работает, причем t и сс побайтно равны и там лежат utf8 символы
bormant » 05.04.2016 17:17:30
Aleksey Elin писал(а):Возможно имеется опция компилятора, позволяющая принудительно указать кодировку для файлов без префиксов для корректного формирования строковых констант, может кто подскажет?
{$codepage utf8}
Aleksey Elin » 05.04.2016 17:19:29
bormant » 05.04.2016 20:17:05
Aleksey Elin писал(а):но последний вариант мне субъективно больше нравится
SSerge » 06.04.2016 05:14:07
Aleksey Elin писал(а):Нашел ответ
Aleksey Elin » 06.04.2016 14:22:05
woodhead » 18.04.2016 09:22:52
resident писал(а):А вот чего дальше и не знаю, можно конечно подключить файл LazUTF8, но там же функции пустышки.
(Файловые функции теперь в файле LazFileUtils.)
Sharfik » 25.04.2016 02:32:09
DLLHandle := loadLibrary (PluginPath);
//Themes.pas
function ThemeServices: TThemeServices;
begin
Result := WidgetSet.ThemeServices; //530 line
end;
zub » 25.04.2016 03:08:14
Sharfik » 25.04.2016 14:08:27
zub писал(а):Ошибка то какая?
Возможно следы прошлых компиляций - почистить все папки lib и проекта и пакетов.
Но скорее всего последствия "обдлливания" "необдлливаемого"((
Сейчас этот форум просматривают: Yandex [Bot] и гости: 15