// this routine is useful, when you got a string
// that you know is a number (no letters) and
// have ($,spaces), so you can not converted to
// integer till you apply some changes.
// If you know a better way to do this...
// just send it to milenio@orangemail.com.do
//
// I miss the tips form this site... keep it alive
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;
|
