Delphi7. Символьный массив

Question

Написать программу, которая вводит символьный массив из 15-ти или меньшего количества элементов и строит другой массив, который будет содержать лишь цифры из первого массива. Ввод символов через Edit, вывод - Label

Наталья Труфанова · Accepted Answer

function Fuck1; 
begin 
Label1.Caption:=Fuck2(Edit1.Text); 
end; 
 
function Fuck2(m: string): string; 
var 
j: Integer; 
c: string; 
begin 
c:=''; 
for i:=1 to Length(m) do 
if (Ord(m[j])>47) and (Ord(m[j])<58) then 
c:=c+m[j]; 
Result:=c; 
end;