[friz]

вот кривой код который реализует test*

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var i,a,b,c:integer;     shab,res:string; begin a:=pos('*',edit1.Text); if a=length(edit1.Text) then shab:=copy(Edit1.Text,1,a-1); b:=pos(shab,memo1.Text); res:=shab; if b<>0 then       begin       for I:=b+length(shab) to length(memo1.Text) do         if memo1.Text[i]<>' ' then res:=res+memo1.Text[i]                               else break;       end;     ShowMessage(res);

если доработать то все будет гуд