Stringlist, FindComponent und Edit Felder inkl deren inhalt

[Jens Schumann]

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;