Найден 31 результат

trexxet
27.03.2014 16:26:28
Форум: Free Pascal Compiler
Тема: Длина массива
Ответы: 6
Просмотры: 8727

Re: Длина массива

Действительно недоглядел, i: byte. Спасибо.
trexxet
27.03.2014 01:42:34
Форум: Free Pascal Compiler
Тема: Длина массива
Ответы: 6
Просмотры: 8727

Длина массива

Имеется такой код:
UnitAvaliableList: array[1..( CountryNum * 200 )] of boolean;
...
for i := 1 to CountryNum * 200 do
UnitAvaliableList[i] := False;
Если CountryNum = 2, то на присвоении False получаю ошибку:
ueditor.pas(60,5) Error: range check ...
trexxet
22.10.2013 23:25:45
Форум: Lazarus
Тема: Кто и как реализует многоязычный интерфейс?
Ответы: 20
Просмотры: 14630

Re: Кто и как реализует многоязычный интерфейс?

Загрузить обычный текстовый файл со строками на чередующихся языках в массив. Т.е.

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

Назад
Back
Zuruck

И хранить язык в целочисленной переменной. Текст выводить по номеру строки умноженной на язык

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

Label1.Text := Text[2*LanguageID];
trexxet
17.10.2013 13:37:13
Форум: Free Pascal Compiler
Тема: Процедуры
Ответы: 8
Просмотры: 9610

Re: Процедуры

Спасибо, переведу все на обжекты.
trexxet
15.10.2013 17:11:12
Форум: Lazarus
Тема: Lazarus на Ubuntu на Nexus 7
Ответы: 1
Просмотры: 2154

Lazarus на Ubuntu на Nexus 7

Скоро куплю Nexus 7 и на него поставлю Ubuntu (http://4pda.ru/forum/index.php?showtopic=404990).
Можно ли на него поставить Lazarus? Надо ли пересобирать исходники под ARM или уже есть готовый лазарь?
trexxet
14.10.2013 10:25:01
Форум: Free Pascal Compiler
Тема: Процедуры
Ответы: 8
Просмотры: 9610

Re: Процедуры

Забыл написать про типы
PRectTextButton = ^TRectTextButton;
TRectTextButton = record
Rect: zglTRect;
Alpha: byte;
Color: longword;
Text: UTF8String;
TextScale: single;
TextColor: longword;
OnClick: TOnClick;
end;

PRectImgButton = ^TRectImgButton ...
trexxet
13.10.2013 18:25:10
Форум: Free Pascal Compiler
Тема: Процедуры
Ответы: 8
Просмотры: 9610

Процедуры

Имеется 2 процедуры

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

procedure CheckTB( Button: PRectTextButton; Down: boolean = False ); 
procedure CheckIB( Button: PRectImgButton; Down: boolean = False );

Их содержимое абсолютно одинаковое, различаются только типом аргумента
Можно ли объединить их в одну?
trexxet
02.10.2013 09:13:51
Форум: Free Pascal Compiler
Тема: Указатель на динамический массив
Ответы: 22
Просмотры: 28370

Указатель на динамический массив

В одном модуле имеется динамический массив
Edits: array of TRectEdit;
...
CheckEdit( @Edits );
В другом GUI
procedure CheckEdit( EditArray: Pointer );
var
i, j: byte;
begin
j := 1;
for i := 1 to Length( EditArray^ ) do
На что компилятор выдает
gui.pas(97,17 ...
trexxet
17.09.2013 17:20:51
Форум: Lazarus
Тема: Процедура в record
Ответы: 3
Просмотры: 3119

Re: Процедура в record

Спасибо, при создании так понимаю нужно передавать указатель на процедуру. Вроде работает.
trexxet
15.09.2013 22:32:16
Форум: Lazarus
Тема: Процедура в record
Ответы: 3
Просмотры: 3119

Процедура в record

Пишу небольшой GUI на ZenGL. Для типов использую record, GUI в отдельном модуле.
Для создания объекта использую функцию, которая возвращает переменную нужного типа.
Допустим создаю кнопку в меню:
type TRectButton = record
X, Y, W, H: single;
Color: longword;
end;

function RectButtonAdd ...
trexxet
20.08.2013 22:00:22
Форум: Lazarus
Тема: Давайте что нибудь напишем ?
Ответы: 47
Просмотры: 51625

Re: Давайте что нибудь напишем ?

XakeR писал(а):тот же ZenGL

Давайте. У меня есть наработки по двум играм на ZenGL.
trexxet
20.08.2013 21:15:41
Форум: Lazarus
Тема: Уменьшение размера исполняемого .exe-файла в lazarus-1.0.10
Ответы: 16
Просмотры: 14141

Re: Уменьшение размера исполняемого .exe-файла в lazarus-1.0

Не проще ли в настройках компилятора выключить "Добавлять отладочною информацию"?
trexxet
20.08.2013 19:57:45
Форум: Lazarus
Тема: Давайте что нибудь напишем ?
Ответы: 47
Просмотры: 51625

Re: Давайте что нибудь напишем ?

amateur писал(а):Начинайте писАть, а потом видно будет.

По принципу "Дадим начало, а дальше оно само пойдет, может что-нибудь получится" :)
trexxet
20.08.2013 19:52:45
Форум: Lazarus
Тема: Форматирование кода JEDI зависает
Ответы: 2
Просмотры: 2191

Re: Форматирование кода JEDI зависает

Это значит что где-то ошибка. Попробуй выполнить проверку синтаксиса или скомпилировать.
trexxet
26.06.2013 11:59:01
Форум: Lazarus
Тема: Lazarus + Android
Ответы: 2
Просмотры: 3249

Lazarus + Android

1) Необходимы ли знания Java для написания в Lazarus под Android?
2) В примерах настройки Lazarus под Android использовались линевские пути. Писать только под линем?