непонятно с символом доллара

[Hacker19_90]

Ну может так??

procedure TForm1.Sravnenie;
var s:string;
a:set of char;
i,j:integer;
begin
a:=['a','b','c','d','e','f','0','1','2' ,'3','4','5','6','7','8','9'];
s:=Memo1.Text;
Memo2.Clear;
Memo2.Text := Memo2.Text + '$';
j := 0;
for i:=1 to length(s) do
begin
if s[i] in a then 
begin
     memo2.text:=memo2.text+s[i];
     j := j+1;
end;
    if j = 8 then
    begin
        Memo2.Text := Memo2.Text + '$';
        j := 0;
    end;
end
end;

И ещё зачем вам функция???

[KEA0301]

Ну а почему бы просто после каждых 8 символов не выводить $, примерно так:

k:=0;
for i:=1 to length(s) do
begin
if s[i] in a then begin memo2.text:=memo2.text+s[i]; k:=k+1; end;
if ((k mod 8) = 0) then
memo2.text:=memo2.text+'$';
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[compres]

Можно еще так :

for i:=1 to length(s) do
   if not (s[i] in a) then delete(s,i,1);
for i:=1 to length(s) do 
   if ((i mod 8) = 0) then insert ('$', s, i+1);
memo2.text:=s;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.