Title: How to convert string to int (safe mode)
var
i: Integer;
newint: Integer;
variab: string; // with the value
newvar: string; // edited string
begin
newvar := '';
for i := 1 to Length(variab) do
begin
if (Copy(variab, i, 1) = ' ') or
(Copy(variab, i, 1) = ',') or
(Copy(variab, i, 1) = '$') then
else
newvar := newvar +
(Copy(variab, i, 1) = ' ');
end;
// at this point you have newvar
// with the numerical contents of
// variab... you can select
end;