Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

Скопировать в буфер обмена несколько строк.   Найти похожие ветки 

 
Огромное Кулясищще ©   (2004-07-18 00:29) [0]

Юзаю такой код.


 var s: String;
     i: Integer;
 
 If SomeList.Items.Count > 0 then
  begin
    s := "";
    for i := 0 to SomeList.Items.Count-1 do
      s := s + SomeList.Items[i] + Chr(13);
    Delete(s, Length(s), 1);
    Clipboard.AsText := s;
  end;


Нужно, чтобы при вставке в редактор какой-нибудь были те же несколько строк подряд, каждая на своей строке. Но при вставке в Notepad всё идёт сплошной строкой и вместо переноса (#13) акой-то малопонятный символ. Что не так?


 
GanibalLector ©   (2004-07-18 01:54) [1]

во первых #13 + #10
во вторых,мне не понятна эта строка кода :
Delete(s, Length(s), 1);
зачем???

в третьих ,перед  Clipboard.AsText := s;
нужно вставить ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0);


 
GanibalLector ©   (2004-07-18 01:55) [2]

И вообще,что такое SomeList ???
Накой его так называть ???


 
Огромное Кулясищще ©   (2004-07-18 16:48) [3]

Спасибо, сработало.
Объясни, пожалуйста, что делает ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0)?

>во вторых,мне не понятна эта строка кода :
Delete(s, Length(s), 1);
зачем???


А нафига мне лишний перенос? Курсор должен быть в конце последней строки.


 
GanibalLector ©   (2004-07-18 16:52) [4]

>Объясни, пожалуйста, что делает ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0)?

Ну...попробуй без.Тоже вставится,но !!! Попробуй и увидишь,что вместо русских будут иероглифы.

>А нафига мне лишний перенос? Курсор должен быть в конце последней строки.

НИЗЯ


 
Огромное Кулясищще ©   (2004-07-18 17:29) [5]

>НИЗЯ

Я не есть понимать. Нельзя - это потому что ты так захотел или так надо?


 
GanibalLector ©   (2004-07-18 17:44) [6]

>Я не есть понимать. Нельзя - это потому что ты так захотел или так надо?

А ЧЁ там понимать??? Если тебе уж так хочется улалить,то удаляй.Только не один символ,а 2 т.к.  #13 + #10

Кстати,если ты не удалишь,то ничего,собственно,и не произойдет.Только переход на новую строку.

Решай сам...


 
Огромное Кулясищще ©   (2004-07-18 18:15) [7]

Ну вот я уже удалил, всё реально пашет, ещё раз спасибо.


 
Anatoly Podgoretsky ©   (2004-07-18 18:29) [8]

Нет ли у этого SomeList свойства Text


 
Огромное Кулясищще ©   (2004-07-18 21:44) [9]

>Anatoly Podgoretsky © (18.07.04 18:29) [8]

Не проверял, скорее всего нет, но для моей задачи это не совсем подходит. В конечном итоге нужно будет реализовывать копирование выделенных строк, так что всё в принципе по делу.


 
Mim1 ©   (2004-07-18 21:52) [10]

Хочется думать, что есть другой текст скопировать в буфер, не используя

> ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0)

копать скорее всего надо в сторону unicode и форматов двнных буфера

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


 
Mim1 ©   (2004-07-18 21:54) [11]

Проблемма с абракодаброй насколько я помню свойственна новым операционкам на ядре nt.


 
GanibalLector ©   (2004-07-18 22:00) [12]

>Проблемма с абракодаброй насколько я помню свойственна новым операционкам на ядре nt.

ага


 
Огромное Кулясищще ©   (2004-07-18 22:57) [13]

Ну не знаю, Win 98.


 
GanibalLector ©   (2004-07-18 23:03) [14]

>Ну не знаю, Win 98.
Дык проверь...и нам расскажешь.
Убери  ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0)
и повставляй в БЛОКНОТ.



Страницы: 1 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.042 c
14-1089785501
sniknik
2004-07-14 10:11
2004.08.01
Кому нравятся командировки?


4-1087908311
вразлет
2004-06-22 16:45
2004.08.01
COM-port


1-1090243759
ruslan
2004-07-19 17:29
2004.08.01
Forma poyavilos plavno


14-1089377900
rOOse
2004-07-09 16:58
2004.08.01
Прокси


10-1019627903
denis_1
2002-04-24 09:58
2004.08.01
DCOM