[mak-karpov]

Задача. Есть строка-шаблон. Есть данные.
Шаблон может содержать текст и *, обозначающюю любой текст. Надо выяснить, подходят ли данные под шаблон и если подходят, то узнать, что в данных стоит на месте "*". Например

Код:

1 2 3 4 5 6 7

Шаблон : test*; Текст : test123 Подходит. На месте * стоит 123. ----- Шаблон : function(*); Данные : function(test); На месте * - test

[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);

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