Вопрос по TKOLMemo (MCK)

← →
Maloric (2006-03-02 01:01) [0]

При добавлении строки в Memo1:TKolMemo, например, Memo1.Add(s); она добавляеться к последней строке, приходиться добавлять s+#13#10, можно ли обойтись без этого добавления?
И еще один вопросик, вчера написал программу на KOL/MCK, и помоему я стер нужный файл, теперь при запуске проект появляеться ошибка Access violation at adress 77D5B14F in module "user32.dll". Можно ли это излечить.
Заранее спасибо.
Я новенький, всего второй день изучаю библиотеку KOL/MCK, не ругайте сильно.
p.s. Прогресс на лицо, переписал программу на KOL, она уменьшилась в размерах в 18 раз!!!

← →
ECM © (2006-03-02 10:45) [1]

> приходиться добавлять s+#13#10, можно ли обойтись без этого
> добавления?

Вообще без него - нет. Так уж устроен Win32 edit control (multiline).
Но никто не запретит Вам создать свою процедуру и ей пользоваться :

procedure MemoAddLine(const Str: String; Memo: PControl); begin Memo.Add(Str+#13#10); end;

> ошибка Access violation at adress 77D5B14F in module "user32.
> dll". Можно ли это излечить

Можно как и любую другую такого рода - пройдите в отладчике запуск программы - ищите причину - какой именно участок кода вызывает падение.
А так, вообще - сказать из-за чего невозможно... надо быть телепатом :))

← →
Maloric (2006-03-02 10:51) [2]

> > ошибка Access violation at adress 77D5B14F in module "user32.
>
> > dll". Можно ли это излечить
>
> Можно как и любую другую такого рода - пройдите в отладчике
> запуск программы - ищите причину - какой именно участок
> кода вызывает падение.
> А так, вообще - сказать из-за чего невозможно... надо быть
> телепатом :))

Да нет, это ошибка при открытии проекта, запускаешь главный файл проекта, появляеться ошибка и Delphi сам закрывается. Если сначала запустить Delphi, а затем через меню открыть проект, также появляеться ошибка, а затем все работает. И так каждый раз только с одним проектом.

← →
ECM © (2006-03-02 11:47) [3]

Тогда сказать сложно... Попробуйте заново переустановить KOL...
Если не спасет - запакуйте проект (без exe и dcu) и мне в мыло
Могу проверить у себя (но только D6 или D7)

← →
Thaddy (2006-03-02 13:34) [4]

or a small new memo like this:
interface Type PExtMemo = ^TExtMemo; TExtMemo = object(Tcontrol) public procedure AddLine(const Str: String); end; function NewExtMemo( AParent: PControl; Options: TEditOptions ):PExtMemo; implementation function NewExtMemo( AParent: PControl; Options: TEditOptions ):PExtMemo; begin Result := PExtMemo(NewEditBox(aParent, Options); end; procedure TExtMemo.AddLine(const str:string); begin Add(str+#13#10); end;

← →
Vladimir Kladov (2006-03-02 15:21) [5]

MCK при установке и при переустановке (обновлении) надо делать build, а не compile. Иначе ошибки лезут как из горшка невзгод.

> or a small new memo like this:
>
> interface
>
> Type
> PExtMemo = ^TExtMemo;
> TExtMemo = object(Tcontrol)
> public
> procedure AddLine(const Str: String);
> end;
>
> function NewExtMemo( AParent: PControl; Options: TEditOptions
> ):PExtMemo;
>
> implementation
>
> function NewExtMemo( AParent: PControl; Options: TEditOptions
> ):PExtMemo;
> begin
> Result := PExtMemo(NewEditBox(aParent, Options);
> end;
>
> procedure TExtMemo.AddLine(const str:string);
> begin
> Add(str+#13#10);
> end;

2Thaddy: I think this сan make is better so (I think it will work):
interface Type PExtMemo = ^TExtMemo; TExtMemo = object(Tcontrol) public procedure Add(const Str: String); end; function NewExtMemo( AParent: PControl; Options: TEditOptions ):PExtMemo; implementation function NewExtMemo( AParent: PControl; Options: TEditOptions ):PExtMemo; begin Result := PExtMemo(NewEditBox(aParent, Options); end; procedure TExtMemo.Add(const str:string); begin inherited Add(str+#13#10); end;

Вопрос по TKOLMemo (MCK) Найти похожие ветки