28-03-2016, 06:20 PM
كيف اضع واين اضعها اخي
function TrimIt2(const S: string): string;
var
str: string;
x: byte;
begin
for x := 1 to Length(S) do
begin
if S[x] in ['0'..'9'] then
str := str + S[x];
end;
Result := str;
end;
function TrimIt2(const S: string): string;
var
str: string;
x: byte;
begin
for x := 1 to Length(S) do
begin
if S[x] in ['0'..'9'] then
str := str + S[x];
end;
Result := str;
end;