-
Постов
553 -
Зарегистрирован
-
Посещение
-
Победитель дней
35
Весь контент rareMax
-
А через Log.D - разве не пишет в консоль студии?
-
От эмбр: http://community.embarcadero.com/blogs?view=entry&id=8542 procedure TVariableHeight.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); var Drawable: TListItemText; SizeImg: TListItemImage; Text: string; AvailableWidth: Single; begin SizeImg := TListItemImage(AItem.View.FindDrawable('imgSize')); AvailableWidth := TListView(Sender).Width - TListView(Sender).ItemSpaces.Left - TListView(Sender).ItemSpaces.Right - SizeImg.Width; // Find the text drawable which is used to calcualte item size. // For dynamic appearance, use item name. // For classic appearances use TListViewItem.TObjectNames.Text // Drawable := TListItemText(AItem.View.FindDrawable(TListViewItem.TObjectNames.Text)); Drawable := TListItemText(AItem.View.FindDrawable('txtMain')); Text := Drawable.Text; // Randomize the font when updating for the first time if Drawable.TagFloat = 0 then begin Drawable.Font.Size := 1; // Ensure that default font sizes do not play against us Drawable.Font.Size := 10 + Random(4) * 4; Drawable.TagFloat := Drawable.Font.Size; if Text.Length < 100 then Drawable.Font.Style := [TFontStyle.fsBold]; end; // Calculate item height based on text in the drawable AItem.Height := GetTextHeight(Drawable, AvailableWidth, Text); Drawable.Height := AItem.Height; Drawable.Width := AvailableWidth; SizeImg.OwnsBitmap := False; SizeImg.Bitmap := GetDimensionBitmap(SizeImg.Width, AItem.Height); end;
-
Ну за это я думал - просто все равно в одном массиве будет сразу Integer, потом String ([5, "д"],). Можете подсказать как тут поступить лучше?
-
блин API телеграмма отлично зашло. А вот с вк - одни беды
-
Да пожалуйста) procedure nnn; var socket: TSocket; LBytes: TBytes; LRecesiv: TBytes; Begin socket := TSocket.Create(TSocketType.TCP); try // ну только ваш ип socket.Connect(TNetEndpoint.Create(192, 168, 1, 1, 8081)); LBytes := [233, 123, 001, $FF]; socket.Send(LBytes); while True do // Begin if socket.Receive(LRecesiv) = 0 then Continue; // если ничего не пришло - опять запрашиваем инфу if LRecesiv = LBytes then socket.Send([66, 124]); End; finally socket.Free; end; end;
-
Я работаю с библиотекой XSuperObject. Как правило, сам JSON я не парсю, а только создаю классы-прототипы данных в JSON, и пользуюсь методами .FromJSON и .ToJSON. пример: Для такого JSON'a создаю такой класс: TvktStatus = Class private Ftext: String; FAudio: TvktAudio; published [Alias('text')] property text: String read Ftext write Ftext; [Alias('audio')] property audio: TvktAudio read FAudio write FAudio; End; в итоге не нужно парсить программисту - все делает библиотечка. Теперь к самой проблеме. Допустим есть такой файлик с данными в формате JSON: Как бы вы составили такой класс-прототип? Ведь тут получается в одном массиве есть как число так и строка.
-
uses System.Net.Socket; Procedure Sample; var Socket: TSocket; LBytes: TBytes; Begin Socket := TSocket.Create(TSocketType.TCP); try // ну только ваш ип Socket.Connect(TNetEndpoint.Create(192, 168, 1, 1, 8081)); LBytes := [233, 123, 001, $FF]; Socket.Send(LBytes); finally Socket.Free; end; End; { TvkDatabase } function TvkDatabase.getCit
-
с этим норм. но добавили других багов
-
еще больше плагинов установите в студию)00))
-
А обязательно в HKLM хранить данные? Если не изменяет память - нормальный путь будет для Local User, в независимости от разрядности. попробуйте
-
первоначальный вариант справедлив только для 32битных. Wow6432Node - ее юзать для 64битных.
-
Винда 64-битная*?
-
Ошибки нет, и кликабельности тоже нет. Х Ставил.
- 14 ответов
-
- berlin
- gloweffect
-
(и ещё 3 )
C тегом:
-
Есть ли в настройках IDE (ну или может плагин), что бы для новых проектов(а в идеале и для существующих) была по умолчанию кодировка UTF8? Пролистал настройки ИДЕ - но, к сожалению, не нашел заветного пункта.
-
Сложного в этом нет ничего, но с другой стороны это не правильно, что "нельзя" пользоваться возможностями встроенной библиотеки кода.
-
Это не абракадабра виновата. Читайте про потоки, и синхронизацию в частности
-
Будет влиять в лучшую сторону. Единственное что сразу было не привычно во время работы с ним - так это то, что нужно самому организовать хранение и поставку данных.
-
ох уж эти приоритеты
-
Когда будет новая версия FGX? Будут обновления, не?
-
Зачем так далеко посылать? есть же более простой вариант