Помогите разобратся с глюком.

← →
ALex B. (2004-10-06 16:31) [0]

Я уверен что в привидённом коде сделал криво но немогу понять что именно:)

procedure TForm1.RzToolbarButton7MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var m:integer; ip:pchar;
begin
GetMem(ip, 144);
for m := 0 to Form7.CheckListBox1.count - 1 do
begin
StrCat(ip,PChar(Form7.CheckListBox1.Items.Strings[m])+#13#10));
Form1.RzToolbarButton7.Hint := ip;
end;

Глюк заключается в следещем. При вывидении хинта в нём перед нужным текстом постоянно выскакивают 3 символа типа "^о{"(постоянно изменяются). Строки в CheckListBox это IP адреса.

← →
Digitman © (2004-10-06 16:39) [1]

непонятно, к чему эти выкрутасы с PChar..

чем string-то не угодил ?

← →
ssk © (2004-10-06 16:40) [2]

а так?

var ip: string; m: integer; begin ip := ""; for m := 0 to Form7.CheckListBox1.count - 1 do ip := ip + Form7.CheckListBox1.Items.Strings[m] + #13#10; Form1.RzToolbarButton7.Hint := ip; end;

непонятно так же, зачем строить hint-строку и назначать ее св-ву Hint всякий раз, когда обнаружено малейшее движение мыши ..

что, содержимое CheckListBox1 за период между двумя соседними событиями мыши может самопроизвольно измениться ?

Помогите разобратся с глюком. Найти похожие ветки