Приведите примеры кода - дело пойдет быстрее.
В Лазаре строки строятся на базе мультибайтных символов (utf8), в дельфи, начиная с 2009, на базе двухбайтных (unicode).
Откажитесь от строк и работайте с блоками памяти - будет проще.
Также не забывайте про кодировку - в дельфи компилятор ...
Найдено 127 результатов
- 31.05.2013 07:09:00
- Форум: Lazarus
- Тема: Отличия строк Delphi и Lazarus.
- Ответы: 8
- Просмотры: 7256
- 22.05.2013 15:03:36
- Форум: SynEdit и UniHighlighter
- Тема: Вопрос по SynEdit
- Ответы: 3
- Просмотры: 28738
Re: Вопрос по SynEdit
Код: Выделить всё
SynEdit.InsertTextAtCaret('Text4Insert');- 17.05.2013 11:48:36
- Форум: Lazarus
- Тема: програмное скроллирование listbox
- Ответы: 1
- Просмотры: 2329
Re: програмное скроллирование listbox
Код: Выделить всё
uses
windows, LMessages;
...
SendMessage(ListBox.Handle, LM_VSCROLL, SB_LINEDOWN, 0);
...
SendMessage(ListBox.Handle, LM_VSCROLL, SB_LINEUP, 0);
- 12.03.2013 11:37:18
- Форум: Lazarus
- Тема: Ошибка при выгрузке в DBF
- Ответы: 7
- Просмотры: 5438
Re: Ошибка при выгрузке в DBF
‘Malformed String’ - Данные передаются не в utf8. Можно настройки коннекта посмотреть. Странно это все.
Перед заполнением запроса делается SQLQuery2.SQL.Clear; ?
Поковырять нет возможности. Попробуйте передавать через параметры:
SQLQuery2.SQL.Add('SELECT FIO FROM KONT where Upper(FIO ...
Перед заполнением запроса делается SQLQuery2.SQL.Clear; ?
Поковырять нет возможности. Попробуйте передавать через параметры:
SQLQuery2.SQL.Add('SELECT FIO FROM KONT where Upper(FIO ...
- 11.03.2013 11:37:16
- Форум: Lazarus
- Тема: Ошибка при выгрузке в DBF
- Ответы: 7
- Просмотры: 5438
Re: Ошибка при выгрузке в DBF
В конструкции If then можно использовать только один оператор: простой, пустой или составной.
В вашем случае при вызове диалога if SaveDialog1.Execute then , если пользователь откажется от выбора файла все равно пройдет выгрузка с последним указанным именем файла. Или программа упадет с ошибкой ...
В вашем случае при вызове диалога if SaveDialog1.Execute then , если пользователь откажется от выбора файла все равно пройдет выгрузка с последним указанным именем файла. Или программа упадет с ошибкой ...
- 07.03.2013 11:33:11
- Форум: Lazarus
- Тема: Ошибка при выгрузке в DBF
- Ответы: 7
- Просмотры: 5438
Re: Ошибка при выгрузке в DBF
Ну на вскидку:
1. Убрать with и забыть про это зло.
2. Что более вероятно у вас дважды удаляется компонент Dbf1
SQLQuery5.Close;
[b]Dbf1.Free;[/b]
AssignFile(dbf, SysToUtf8(SaveDialog1.FileName));
Reset(dbf);
Seek(dbf, 29);
CP := $26;
Write(dbf, CP);
CloseFile ...
1. Убрать with и забыть про это зло.
2. Что более вероятно у вас дважды удаляется компонент Dbf1
SQLQuery5.Close;
[b]Dbf1.Free;[/b]
AssignFile(dbf, SysToUtf8(SaveDialog1.FileName));
Reset(dbf);
Seek(dbf, 29);
CP := $26;
Write(dbf, CP);
CloseFile ...
- 22.02.2013 06:52:02
- Форум: Lazarus
- Тема: Многострочный StringGrid
- Ответы: 2
- Просмотры: 2711
Re: Многострочный StringGrid
1. Обойти это конечно можно, например, так
var
TextStyle: TTextStyle;
begin
TextStyle.Wordbreak := True;
TextStyle.SingleLine := False;
StringGrid1.Canvas.TextStyle := TextStyle;
Только это вам не поможет.
2. имхо лучше не использовать with - куча ...
var
TextStyle: TTextStyle;
begin
TextStyle.Wordbreak := True;
TextStyle.SingleLine := False;
StringGrid1.Canvas.TextStyle := TextStyle;
Только это вам не поможет.
2. имхо лучше не использовать with - куча ...
- 23.01.2013 09:30:00
- Форум: Lazarus
- Тема: Абсолютная позиция курсора в TMemo( в пикселях)
- Ответы: 1
- Просмотры: 1690
Re: Абсолютная позиция курсора в TMemo( в пикселях)
не проще брать x, y из события OnMouseMove?
- 17.01.2013 11:27:59
- Форум: Lazarus
- Тема: [РЕШЕНО] Инициализация RadioButton при открытии окна
- Ответы: 5
- Просмотры: 3837
Re: Инициализация RadioButton при открытии окна
Вынесите установку значений в отдельный public метод и вызывайте его перед показом формы.
Можно даже свой метод сделать для инициализации и показа.
TChildForm = class(TForm)
...
public
procedure SetDefault;
procedure CustomShow;
end;
...
procedure TChildForm. ...
Можно даже свой метод сделать для инициализации и показа.
TChildForm = class(TForm)
...
public
procedure SetDefault;
procedure CustomShow;
end;
...
procedure TChildForm. ...
- 19.12.2012 11:18:24
- Форум: Lazarus
- Тема: TActionList. Свойство 'Enabled' у действия в Рантайме.[Реш.]
- Ответы: 8
- Просмотры: 5786
- 08.11.2012 08:10:16
- Форум: Free Pascal Compiler
- Тема: Создание объектов, приватный конструктор
- Ответы: 13
- Просмотры: 10327
Re: Создание объектов, приватный конструктор
to PapaNT Если вы его создали и не указали владельца
Тогда нужно.
В противном случае его уничтожением должен заниматься владелец
Код: Выделить всё
MyLabel := TLabel.Create(nil);
Тогда нужно.
В противном случае его уничтожением должен заниматься владелец
- 09.10.2012 11:20:30
- Форум: Lazarus
- Тема: Выезжающая панель
- Ответы: 16
- Просмотры: 12454
Re: Выезжающая панель
Не было возможности выйти в сеть 
Сворачивание доступно, если активно выравнивание по краям родительского контрола (top, left, right, bottom).
Сворачивание доступно, если активно выравнивание по краям родительского контрола (top, left, right, bottom).
- 25.09.2012 12:09:39
- Форум: Lazarus
- Тема: Выезжающая панель
- Ответы: 16
- Просмотры: 12454
Re: Выезжающая панель
Сходу, можно назвать ряд багов, которые будут в этом недокомпоненте 
Позвольте полюбопытствовать, а что именно не работает.
Win XP, Lazarus 1.0, FPC 2.6.0 писал и проверял на этом
Позвольте полюбопытствовать, а что именно не работает.
Win XP, Lazarus 1.0, FPC 2.6.0 писал и проверял на этом
- 24.09.2012 13:46:21
- Форум: Lazarus
- Тема: Самодельный компонент
- Ответы: 20
- Просмотры: 12550
Re: Самодельный компонент
Кстати, это касается всех свойств.
Если их не делать pablished, то они при запуске будут со значениями по-умолчанию.
Если их не делать pablished, то они при запуске будут со значениями по-умолчанию.
- 24.09.2012 13:43:52
- Форум: Lazarus
- Тема: Выезжающая панель
- Ответы: 16
- Просмотры: 12454
Re: Выезжающая панель
Допилил свойство Expanded.
Теперь можно установить панель в свернутом виде.
P.S. Допиливание не возбраняется.
Теперь можно установить панель в свернутом виде.
P.S. Допиливание не возбраняется.