Memo - запись в одну строку

← →
altatr © (2008-01-26 02:07) [0]

Всем доброй ночи. Вопрос наверное простой. Можно ли в окно компонента Memo добавлять символы не построчно а в одну строку друг за другом?

← →
{RASkov} © (2008-01-26 02:14) [1]

> [0] altatr © (26.01.08 02:07)

Можно:
procedure AddCharToMemo(M: TMemo; C: Char; IsNewLine: Boolean=False); begin if IsNewLine then M.Lines.Add(C) else M.Lines[M.Lines.Count-1]:=M.Lines[M.Lines.Count-1]+C; end;
:) Только что придумал, не проверял....

← →
Германн © (2008-01-26 02:14) [2]

> altatr © (26.01.08 02:07)
>
> Всем доброй ночи. Вопрос наверное простой. Можно ли в окно
> компонента Memo добавлять символы не построчно а в одну
> строку друг за другом?
>

Memo1.Text:=Memo1.Text + #0;
Но это может оказаться "тормозом".

← →
turbouser © (2008-01-26 02:29) [3]

SendMessage(Memo.Handle, WM_CHAR, Ord("A"), 0);

← →
altatr © (2008-01-26 03:07) [4]

>Германн © (26.01.08 02:14) [2]
>Memo1.Text:=Memo1.Text + #0;

Да, такой вариант я пытался использовать но при большом текста тормозит ужасно...

← →
altatr © (2008-01-26 03:15) [5]

>turbouser © (26.01.08 02:29) [3]
>
>SendMessage(Memo.Handle, WM_CHAR, Ord("A"), 0);

Вот это подходит.

Спасибо всем.

← →
Германн © (2008-01-26 03:21) [6]

> altatr © (26.01.08 03:15) [5]
>
> >turbouser © (26.01.08 02:29) [3]
> >
> >SendMessage(Memo.Handle, WM_CHAR, Ord("A"), 0);
>
> Вот это подходит.
>
> Спасибо всем.
>

Только не дай бог тебе "щелкнуть мышкой" где-нибудь внутри Мемо.

← →
{RASkov} © (2008-01-26 03:27) [7]

> [6] Германн © (26.01.08 03:21)

> Только не дай бог тебе "щелкнуть мышкой" где-нибудь внутри
> Мемо.

Но в любом случае, данный способ лучший, ну на крайняк можно и [1] :)
Тем более так же посылкой сообщений можно предварительно каретку сместить на нужное нам место...

← →
altatr © (2008-01-26 21:38) [8]

>Германн © (26.01.08 03:21) [6]
>
>Только не дай бог тебе "щелкнуть мышкой" где-нибудь внутри Мемо.
>
>

а что будет?

щелкаю и ничего страшного не происходит...

← →
{RASkov} © (2008-01-27 01:23) [9]

> [8] altatr © (26.01.08 21:38)
> щелкаю и ничего страшного не происходит...

Поздравляю, можешь назвать себя везунчиком :)

> а что будет?

А как ты думаешь, что происходит при посылки сообщения WM_CHAR в TMemo ? Куда должен вставится символ?
Намеки[6] нужно понимать :)

← →
Amoeba © (2008-01-27 01:38) [10]

> altatr © (26.01.08 02:07)
>
> Всем доброй ночи. Вопрос наверное простой. Можно ли в окно
> компонента Memo добавлять символы не построчно а в одну
> строку друг за другом?

Сударь, Вы хоть в состоянии описать Вашу задачу так, чтобы ее можно было понять? Иначе интерпретировать Ваш вопрос иначе, чем поток замутненного сознания, невозможно.

← →
Германн © (2008-01-27 01:46) [11]

> Amoeba © (27.01.08 01:38) [10]
>
>

Ну тут ты не прав. Вопрос действительно простой. А про задачу никто пока и не спрашивал.

> Германн © (27.01.08 01:46) [11]
>
>
> > Amoeba © (27.01.08 01:38) [10]
> >
> >
>
> Ну тут ты не прав. Вопрос действительно простой. А про задачу
> никто пока и не спрашивал.

Что вопрос относительно простой, я и не отрицаю. Только вот не могу дотумкать, в чем сверхзадача.

> Что вопрос относительно простой, я и не отрицаю. Только
> вот не могу дотумкать, в чем сверхзадача.

Тебе что больше делать нечего, чем "дотумкивать"? :)))
Пусть автор сам занимается сей бодягой. Нам то зачем лишний раз перенапрягать мозги? Ответили на вопрос? - Да.

> Германн © (27.01.08 02:03) [13]
>
>
> > Что вопрос относительно простой, я и не отрицаю. Только
> > вот не могу дотумкать, в чем сверхзадача.
>
> Тебе что больше делать нечего, чем "дотумкивать"? :)))
> Пусть автор сам занимается сей бодягой. Нам то зачем лишний
> раз перенапрягать мозги? Ответили на вопрос? - Да.

За кого меня держишь? Я и не пытаюсь напрягать мозги над той фигней, которой страдает наш уважаемый автор вопроса. Просто настроение слегка пофлеймить.

Попутно выяснилось что более одного символа командой SendMessage(Memo2.Handle, WM_CHAR, Ord("а"), 0) передать нельзя...

вот ведь удивительно-то… и то правда, зачем нам знать, что за сокращение такое — CHAR?

Memo - запись в одну строку Найти похожие ветки