Zitat von
sharkx:
Ich habe 4 Edit Felder mit dem inhalt (bsp) 4A569 5f433 3t598 6g5f4
nun möchte ich in einer for schleife die buchstaben entfernen. dazu habe ich folgendes gebastelt, funktioniert jedoch nicht
Ich kann den Code der Buchstaben aus einem String entfernen soll nicht sehen
Der oben diskutierte Code entfernt mit Sicherheit keine Buchstaben.
Ich habe gerade eine function von Hagen Reddmann gefunden. Die entfernt Buchstaben aus einem
String. Und zwar ziemlich fix.
Delphi-Quellcode:
function DeleteNonNumbers(const Value: String): String;
var
I: Integer;
P: PChar;
begin
SetLength(Result, Length(Value));
P := PChar(Result);
for I := 1 to Length(value) do
if Value[I] in ['0'..'9'] then
begin
P^ := Value[I];
Inc(P);
end;
SetLength(Result, P - PChar(Result));
end;