[mak-karpov]

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

Код:

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

[friz]

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

Код:

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

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