WM_SETTEXT

[аsd]

В 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

[Mr.Smart]

Получите сначало адрес строки, а потом делайте преобразование:

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

WParam(@s[1])

или

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

WParam(PChar(s))

[аsd]

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)) // компилируется, но не работает

В то время как такое сообщение доходит:

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

[quote]SendMessage(Edits[i], WM_SETTEXT, 0, 0)

[Mr.Smart]

Читаем документацию http://msdn.microsoft.com/en-us/library/ms632644(VS.85).aspx и смотрим всё ли мы правильно делаем.

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

SendMessage(Edits[i], WM_SETTEXT, Length(s), Integer(@s))

Данная конструкция и не будет работать!

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

SendMessage(Edits[i], WM_SETTEXT, Length(s), Integer(@s[1]))

Ещё вопрос возникает, а что вы передаёте в первом параметре. Edits[j] - это массив чего?

[аsd]

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;

Спасибо.