Очистка памяти выделенной в RunTime

← →
IgorR (2004-05-28 11:01) [0]

Вот такой код

procedure TAlignEdit.SWMInitializeDoc(var Message: TMessage);
var sTemp: Pointer;
begin
//New(sTemp); //Работает и без этого
GetMem(sTemp, Message.LParam);
Move(Pointer(Message.WParam)^, sTemp, Message.LParam);
Self.Text := string(sTemp);
//FreeMem(sTemp, Message.LParam); //RUNTIME ERROR
end;

В принципе все работает, только вот почему нельзя память освободить? Если этого не делать оно же будет там гадить?
И как сделать так, чтоб ни гадило?

← →
Тимохов © (2004-05-28 11:05) [1]

> Self.Text := string(sTemp);

в этой строке ошибка.
пользуйтесь setstring

← →
IgorR (2004-05-28 11:14) [2]

Эту кусок исправил.
SetString(s, PChar(sTemp), Message.LParam);

Хотя оно и так работало.
Основной вопрос, как освободить память выделенную GetMem.
Если использовать FreeMem происходит ОШИБКА "Invalid rointer operation". Если не использовать, то работает без ошибок, но память то надо за собой очищать! Как?

← →
Sandman25+1 (2004-05-28 11:17) [3]

SetString(s, PChar(Pointer(Message.WParam)), Message.LParam);

← →
Тимохов © (2004-05-28 11:21) [4]

приведите еще раз свой код, который вызвает ошибку, только без всяких закомментаренных мест

← →
IgorR (2004-05-28 11:23) [5]

rocedure TAlignEdit.SWMInitializeDoc(var Message: TMessage);
var sTemp: Pointer;
begin
GetMem(sTemp, Message.LParam);
Move(Pointer(Message.WParam)^, sTemp, Message.LParam);
Self.Text := string(sTemp);
FreeMem(sTemp, Message.LParam);
end;

← →
Sandman25+1 (2004-05-28 11:25) [6]

[5] IgorR (28.05.04 11:23)

Зачем Вам этот GetMem сдался... Получается, что данные гоняются 2 раза вместо одного.

← →
Тимохов © (2004-05-28 11:29) [7]

замените всю эту лабуду на то, как говорит Sandman25+1 : на один setsting

← →
Sandman25+1 (2004-05-28 11:32) [8]

rocedure TAlignEdit.SWMInitializeDoc(var Message: TMessage);
var S: String;
begin
SetString(S, Pointer(Message.WParam), Message.LParam);
Self.Text := S;
end;

← →
IgorR (2004-05-28 11:39) [9]

Поменял

SetString(S, Pointer(Message.WParam), Message.LParam);
Self.Text := S;

Теперь вместо букв и цифр краказябры лезут.

← →
Тимохов © (2004-05-28 11:45) [10]

значит wparam ссылается на кракозябры.

как вы полылаете сообщение?
Приведите код

← →
Erik1 (2004-05-28 11:47) [11]

Удалено модератором

← →
IgorR (2004-05-28 11:52) [12]

как посылаются сообщения

var Temp: string;
begin
Temp := TPropertys(GetOwner).ParamByName(FName).AsString;
Control.Perform(MY_INITIALIZE, Int64(@Temp), SizeOf(sTemp));
end;

прием

var s: string;
begin
SetString(S, PChar(Pointer(Message.WParam)), Message.LParam);
Self.Text := s;
end;

← →
Тимохов © (2004-05-28 11:57) [13]

> SizeOf(sTemp)

1. равен 4 байтам (это так, для сведения)
2. зачем вы преобразуете к int64?

надо так
perform(..., longint(pchar(temp)), length(temp));

← →
Erik1 (2004-05-28 11:58) [14]

Зайди в дебагер и проверь, что находится в
Pointer(Message.WParam)^ Наверное тебе так надо написать
SetString(S, Pointer(Message.WParam)^, Message.LParam);
А можно так:
SetLength(S, Message.LParam+1);
Move(Pointer(Message.WParam)^, S, Message.LParam);

я понял, что вы делаете :)))

вы передаете ссылка на строку, котоорая сама уже ссылка.
нафига - строка это уже ссылка.

← →
IgorR (2004-05-28 12:03) [16]

Ура, заработало!

var s: string;
begin
SetString(S, PChar(Pointer(Message.WParam)^), Message.LParam);
Self.Text := s;
end;

Все дело в "^".
Всем спасибо.

> Ура, заработало!

все дело совсем не в этом
и работать это будет до поры до времени т.к. в lparam у вас всегда передается 4 :)))

← →
IgorR (2004-05-28 12:15) [18]

Уже исправил на Length(...)
Спасибо!

← →
IgorR (2004-05-28 12:16) [19]

Уже исправил на Length(...)
Спасибо!

Очистка памяти выделенной в RunTime Найти похожие ветки