Witam,
Mam np. taki oto numer 557.15-9/2002. W jaki sposób zapisać go, aby wyglądał tak 5571592002 (uwaga wielkośc po - czyli w tym wypadku 9, może przyjmować wartość dwóch cyfr np. 88), a potem <font color="red">z powrotem</span>. Proszę o podpowiedź jak to zrobić.
Z góry dziękuję za pomoc,
Pozdrawiam,
Piotr Murawski
var
i: Integer;
s1, s2: string;
begin
s1 := '557.15-9/2002';
for i := 1 to Length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
end;
uses StrUtils;
var
i: Integer;
s1, s2: string;
begin
s1 := '5571592002';
s2 := Copy(s1, 1, 3);
s2 := s2 + '.' + Copy(s1, 4, 2);
s2 := s2 + '-' + Copy(s1, 6, Length(s1)-9);
s2 := s2 + '/' + RightStr(s1, 4);
end;
To jedno z rozwiązań.