Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.021 c