Найдено 7 результатов

аsd
27.11.2009 13:04:29
Форум: Общее
Тема: Как скомпилировать прогу в Virtual Pascal 2.1 build 279?
Ответы: 7
Просмотры: 17976

Re: Как скомпилировать прогу в Virtual Pascal 2.1 build 279?

ну дык..
во всем виноваты стереотипы, лень тут не при чем:)
аsd
27.11.2009 11:56:52
Форум: Общее
Тема: Как скомпилировать прогу в Virtual Pascal 2.1 build 279?
Ответы: 7
Просмотры: 17976

Re: Как скомпилировать прогу в Virtual Pascal 2.1 build 279?

Спасибо, включил поиск - нашел! Кто бы мог подумать...
аsd
27.11.2009 01:37:48
Форум: Общее
Тема: Как скомпилировать прогу в Virtual Pascal 2.1 build 279?
Ответы: 7
Просмотры: 17976

Re: Как скомпилировать прогу в Virtual Pascal 2.1 build 279?

Ну а куда еще писать? Решил, что тут полно фанатов-паскальщиков.
аsd
27.11.2009 00:22:16
Форум: Общее
Тема: Как скомпилировать прогу в Virtual Pascal 2.1 build 279?
Ответы: 7
Просмотры: 17976

Как скомпилировать прогу в Virtual Pascal 2.1 build 279?

Такое чувство, что у меня интерпретатор, файл .exe не появляется! Кто-нибудь работал в Virtual Pascal?
аsd
08.11.2009 16:31:00
Форум: Free Pascal Compiler
Тема: WM_SETTEXT
Ответы: 4
Просмотры: 4783

Re: WM_SETTEXT

Edit1 или Edits[j] не суть важно.
array[0..9] of HWND

Добавлено спустя 13 минут 52 секунды:
Будет работать и так: Integer(@s), блин, ошибка была в другом.
Рабочий код:
for i:= 0 to 9 do
begin
s := 'qwe' ;
SendMessage(Edits[i], WM_SETTEXT, Length(s), Integer(@s[ 1 ]))
end;

Спасибо.
аsd
08.11.2009 15:10:46
Форум: Free Pascal Compiler
Тема: WM_SETTEXT
Ответы: 4
Просмотры: 4783

Re: WM_SETTEXT

n := Integer(@s[ 1 ]); // ссылка на строку
И как ее использовать?

Добавлено спустя 8 минут 2 секунды:
SendMessage(Edit1, WM_SETTEXT, Length(s), lParam(PChar(s))) // не работает

Добавлено спустя 7 минут 59 секунд:
SendMessage(Edits[i], WM_SETTEXT, Length(s), Integer(@s)) // компилируется ...
аsd
08.11.2009 14:30:45
Форум: Free Pascal Compiler
Тема: WM_SETTEXT
Ответы: 4
Просмотры: 4783

WM_SETTEXT

В Delphi 7 все просто:
s := 'asd' ;
SendMessage(Edit1, WM_SETTEXT, Length(s), lParam(s));

или так:
s := 'asd' ;
SendMessage(Edit1, WM_SETTEXT, 3, Integer(s));

Как сделать то же самое в FP? Пишет "Illegal type conversion":
SendMessage(Edit1, WM_SETTEXT, Length(s),
lParam(s)); // Error