Сравнение двух строк

[helena91]

Мне нужно сравнить две строки. В результате нужно вывести в поле МЕМО символы первой строки не включая символов второй. Например,
первая строка: 1 2 3 mnkl 4 5 6
вторая строка: 1 2 5 8 mn
результат: 3 kl 4 6
как ето сделать?

[evg_m]

var
  r: set of char;

s1:='2 3 mnkl 4 5 6';
s2:='1 2 5 8 mn';
r:=[];
for j:=1 to length(s2) do
  r:=r + [s2[j]];
s:='';
for j:=1 to length(s1) do
  if s1[j] in r then else s:=s+s1[j];
showmessage(s);

[helena91]

а если у меня будет строка 11 12 13 14 15, то тогда будет неправильно работать программа....

[ArtGrek]

нужна определеность, если пробел разделитель то должно быть так

первая строка: 1 2 3 m n k l 4 5 6
вторая строка: 1 2 5 8 m n
результат: 3 k l 4 6

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2: TStringList;
  s1, s2: string;
  i, j: integer;
  a: boolean;
  str3: string;
begin
  s1 := '1 2 3 m n k l 4 5 6';
  s2 := '2 5 8 m n';
  str1 := TStringList.Create;
  str2 := TStringList.Create;
  repeat
    str1.Add(copy(s1,1,pos(' ', s1) - 1));
    delete(s1,1,pos(' ', s1));
  until pos(' ', s1) = 0;
  str1.Add(copy(s1,1,length(s1)));
  repeat
    str2.Add(copy(s2,1,pos(' ', s2) - 1));
    delete(s2,1,pos(' ', s2));
  until pos(' ', s2) = 0;
  str2.Add(copy(s2,1,length(s2)));
  for i := 0 to str1.Count -1 do
  begin
    a := False;
    for j := 0 to str2.Count - 1 do
      if str1[i] = str2[j] then a := True;
    if not(a) then str3 := str3 + str1[i] + ' ';
  end;
  ShowMessage(str3);
end;

[helena91]

пасибки, выручил)