Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Ik was aan het prullen met een van mijn programma's en had een functie nodig om alle niet-nummers uit een string te verwijderen.
Hier de simpele functie die dat doet, en ik heb er ook een functie bij gezet die het tegenovergestelde doet - dus alle nummers uit een string verwijderen.
function VerwijderAlleNietNummers(aText:string):string;
var
Character:Char;
begin
for Character in aText do
if CharInSet(Character,['0'..'9']) then
Result := Result + Character;
end;
en het tegenovergestelde:
function VerwijderAlleNummers(aText:string):string;
var
Character:Char;
begin
for Character in aText do
if not CharInSet(Character,['0'..'9']) then
Result := Result + Character;
end;
Hopelijk heeft iemand er iets aan ... 
