ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

И ещё, если не сложно подскажите как отследить на делфи, если в буфер обмена только что вставили WM кошелёк??? То есть первая буква Z, а дальше 12 цифр.

//возвратит true если в строке WMZ находиться кошелек,false в обратном случае.

Код:

function IsShekel(s:string):boolean;
var i :byte;
begin
result:=false;
if Length(s)<> 13 then exit; //åñëè ñòðîêà íåðàâíà 13 //ñèìâîëàì "Z123456789000" òîãäà ýòî íå êîøåëåê.
if UpperCase(Copy(s,1,1))<>'Z' then exit;
for i:=2 to 13 do
begin
if not (s[i] in ['0'..'9']) then exit;
end;
result:=true;
end;