Найден 31 результат
- 27.03.2014 16:26:28
- Форум: Free Pascal Compiler
- Тема: Длина массива
- Ответы: 6
- Просмотры: 8727
Re: Длина массива
Действительно недоглядел, i: byte. Спасибо.
- 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 ...
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 ...
- 22.10.2013 23:25:45
- Форум: Lazarus
- Тема: Кто и как реализует многоязычный интерфейс?
- Ответы: 20
- Просмотры: 14630
Re: Кто и как реализует многоязычный интерфейс?
Загрузить обычный текстовый файл со строками на чередующихся языках в массив. Т.е.
И хранить язык в целочисленной переменной. Текст выводить по номеру строки умноженной на язык
Код: Выделить всё
Назад
Back
ZuruckИ хранить язык в целочисленной переменной. Текст выводить по номеру строки умноженной на язык
Код: Выделить всё
Label1.Text := Text[2*LanguageID];- 17.10.2013 13:37:13
- Форум: Free Pascal Compiler
- Тема: Процедуры
- Ответы: 8
- Просмотры: 9610
Re: Процедуры
Спасибо, переведу все на обжекты.
- 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 или уже есть готовый лазарь?
Можно ли на него поставить Lazarus? Надо ли пересобирать исходники под ARM или уже есть готовый лазарь?
- 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 ...
PRectTextButton = ^TRectTextButton;
TRectTextButton = record
Rect: zglTRect;
Alpha: byte;
Color: longword;
Text: UTF8String;
TextScale: single;
TextColor: longword;
OnClick: TOnClick;
end;
PRectImgButton = ^TRectImgButton ...
- 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 );Их содержимое абсолютно одинаковое, различаются только типом аргумента
Можно ли объединить их в одну?
- 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 ...
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 ...
- 17.09.2013 17:20:51
- Форум: Lazarus
- Тема: Процедура в record
- Ответы: 3
- Просмотры: 3119
Re: Процедура в record
Спасибо, при создании так понимаю нужно передавать указатель на процедуру. Вроде работает.
- 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 ...
Для создания объекта использую функцию, которая возвращает переменную нужного типа.
Допустим создаю кнопку в меню:
type TRectButton = record
X, Y, W, H: single;
Color: longword;
end;
function RectButtonAdd ...
- 20.08.2013 22:00:22
- Форум: Lazarus
- Тема: Давайте что нибудь напишем ?
- Ответы: 47
- Просмотры: 51625
Re: Давайте что нибудь напишем ?
XakeR писал(а):тот же ZenGL
Давайте. У меня есть наработки по двум играм на ZenGL.
- 20.08.2013 21:15:41
- Форум: Lazarus
- Тема: Уменьшение размера исполняемого .exe-файла в lazarus-1.0.10
- Ответы: 16
- Просмотры: 14141
Re: Уменьшение размера исполняемого .exe-файла в lazarus-1.0
Не проще ли в настройках компилятора выключить "Добавлять отладочною информацию"?
- 20.08.2013 19:57:45
- Форум: Lazarus
- Тема: Давайте что нибудь напишем ?
- Ответы: 47
- Просмотры: 51625
Re: Давайте что нибудь напишем ?
amateur писал(а):Начинайте писАть, а потом видно будет.
По принципу "Дадим начало, а дальше оно само пойдет, может что-нибудь получится"
- 20.08.2013 19:52:45
- Форум: Lazarus
- Тема: Форматирование кода JEDI зависает
- Ответы: 2
- Просмотры: 2191
Re: Форматирование кода JEDI зависает
Это значит что где-то ошибка. Попробуй выполнить проверку синтаксиса или скомпилировать.
- 26.06.2013 11:59:01
- Форум: Lazarus
- Тема: Lazarus + Android
- Ответы: 2
- Просмотры: 3249
Lazarus + Android
1) Необходимы ли знания Java для написания в Lazarus под Android?
2) В примерах настройки Lazarus под Android использовались линевские пути. Писать только под линем?
2) В примерах настройки Lazarus под Android использовались линевские пути. Писать только под линем?
