[delphihelp]

спасибо, правда компилятор ругается на 2 ошибки:

[DCC Error] Unit1.pas(64): E2250 There is no overloaded version of 'Pos' that can be called with these arguments

в строке

Код:

c:=pos[m[i],p);

[DCC Error] Unit1.pas(65): E2010 Incompatible types: 'Char' and 'string'

в строке

Код:

m1[c]:=inttostr(i);

может я не туда вставил.

Код:

procedure TForm1.Button3Click(Sender: TObject);
var j:integer;
m,m1,p:string;
i,c:integer;
begin
for j:=0 to memo1.Lines.Count do
p:=Memo1.Lines.Strings[j];
m1:=p;
for i:=1 to length(m) do begin
c:=pos[m[i],p);
m1[c]:=inttostr(i);
end;
p:=m1;
end;