Копирование текста из Memo

[bulkin2000]

Добрый всем день !

может был уже такой вопрос, но я что-то не нашел.
Имеется программка, которая переводит число в сумму прописью: т.е. пишешь в edit 1234.56 - она тебе в Memo выводит "Одна тысяча двести тридцать четыре рубля пятьдесят шесть копеек". После чего нужно эту сумму прописью скопировать в документ Word.
И что же получается? при копировании в Word вместо нормального текста получаются какие-то крокозябры ! причем не обязательно Word, обычный "Блокнот" реагирует точно так же. Но! если в этом же самом Memo РУКАМИ написать хоть какую-нибудь русскую буковку - всё становится замечательно, всё копируется как надо.
Я пытался менять charset, пытался использовать clipboard - ничего не спасает. Ну что за шутки такие, что такое случается с Memo после того как руками туда написать русские буквы, что изменяется?
и как мне такого же эффекта добиться программно?

[BOBAH13]

Попробуйте использовать Unicode - WideString aka PWCHAR. Думаю поможет, ничего не обещаю )

[mihali4]

Сообщение от bulkin2000

Добрый всем день !

может был уже такой вопрос, но я что-то не нашел.
Имеется программка, которая переводит число в сумму прописью: т.е. пишешь в edit 1234.56 - она тебе в Memo выводит "Одна тысяча двести тридцать четыре рубля пятьдесят шесть копеек". После чего нужно эту сумму прописью скопировать в документ Word.
И что же получается? при копировании в Word вместо нормального текста получаются какие-то крокозябры ! причем не обязательно Word, обычный "Блокнот" реагирует точно так же. Но! если в этом же самом Memo РУКАМИ написать хоть какую-нибудь русскую буковку - всё становится замечательно, всё копируется как надо.
Я пытался менять charset, пытался использовать clipboard - ничего не спасает. Ну что за шутки такие, что такое случается с Memo после того как руками туда написать русские буквы, что изменяется?
и как мне такого же эффекта добиться программно?

Я уже писал где-то об этом глюке винды.
Нужно обязательно, чтобы перед операцией копирования была включена русская раскладка клавиатуры для того окна, откуда вы берете русский текст. Для принимающего окна это не имеет значения.

[hacknet]

привет всем! помогите как скопировать к примеру 100 символов из мемо если их больше 500 потом скопировать еще 100 и тд! есть код на определения кол символов

procedure TForm1.Button1Click(Sender: TObject);
var
  r, i, j: integer;
begin
  label1.caption:=inttostr(length(memo1.text)-2); // длина текста в мемо
  r:=0;
  for i:=0 to memo1.lines.count-1 do
    for j:=1 to length(memo1.lines.strings[i]) do
      if copy(memo1.lines.strings[i], j, 1)='?' then
        inc(R); // увеличиваем результат
end;

з.ы скопировав 100 символов вставить не важно куда, удалить их и так далее... спасибо