Вырезать строку из буфера

← →
Jack (2008-11-19 09:14) [0]

Здравствуйте!

У меня в буфере содержится текст в виде:

Строка Строка Строка
Строка Строка Строка

Как можно вырезать первую строку из содержимого буфера?

← →
Сергей М. © (2008-11-19 09:21) [1]

Что значит "вырезать" ? Просто удалить что ли ?

← →
Rouse_ © (2008-11-19 09:22) [2]

Буфер обмена не поддерживает редактирование хранимых данных. Только вставку и очистку данных.

← →
Jack (2008-11-19 09:24) [3]

> Что значит "вырезать" ? Просто удалить что ли ?

Да

> Буфер обмена не поддерживает редактирование хранимых данных.
> Только вставку и очистку данных.

Как лучше это сделать подскажите, StringList нормально будет?

← →
AIK © (2008-11-19 09:32) [4]

Я тут быстренько намудрил чтото
var s, a: string; i: integer; begin a:= ""; S:= Clipboard.AsText; for i:=1 to length(s) do If s[i]<>" " then a:= a+s[i] else break;

результет: a
Можно если сообразить и по лучше сделать но типа так новерное

← →
Сергей М. © (2008-11-19 09:34) [5]

> StringList нормально будет?

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

← →
AIK © (2008-11-19 09:37) [6]

Так ещё лучше

var s, a: string; i: integer; begin a:= ""; S:= Clipboard.AsText; I:= Pos(" ", s); a:= Copy(s, 1, i-1);

← →
Jack (2008-11-19 09:55) [7]

> var
> s, a: string;
> i: integer;
> begin
> a:= "";
> S:= Clipboard.AsText;
> I:= Pos(" ", s);
> a:= Copy(s, 1, i-1);

Из таких данных:

> Строка Строка Строка
> Строка Строка Строка

у меня осталось только одна строчка "Строка" :(

← →
Сергей М. © (2008-11-19 10:01) [8]

> Jack

Не парься, загрузи содержимое буфера в стринглист, удали в стринглисте нужную строку и выгрузи стринглист назад в буфер

← →
AIK © (2008-11-19 10:08) [9]

Ах непонял сразу так тебеж толь ко строку надо

var s, a: string; i: integer; begin a:= ""; S:= Clipboard.AsText; I:= Pos(#13, s); a:= Copy(s, 1, i-1);

← →
Jack (2008-11-19 10:37) [10]

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

var s: string; i: integer; begin S:= Clipboard.AsText; I:= Pos(#13, s); Delete(s, 0, i-1);

Теперь результат: s

Виноват, чёто самной не то сегодня

var
s: string;
i: integer;
begin
S:= Clipboard.AsText;
I:= Pos(#13, s);
Delete(s, 1, i+1);

> Jack (19.11.2008 9:14:00) [0]

Copy - это не совет, а название функции.

> Jack (19.11.2008 10:37:10) [10]

Ты всегда пушку применяешь, так где достаточно мухобойки?

Вырезать строку из буфера Найти похожие ветки