Entwickler-Ecke

Sonstiges (Delphi) - Aus String nur a..z, A..Z, 0..9 rauslesen und in anderen Str


Biarchiv - Di 10.03.09 19:34
Titel: Aus String nur a..z, A..Z, 0..9 rauslesen und in anderen Str
Hallo,

ich würde gerne aus einem String der jedes Zeichen im Ascii enthalten kann nur
Buchstaben und Zahlen nach der Reihenfolge rauslesen und in einem anderen String kopieren.
a..z, A..Z, 0..9


jaenicke - Di 10.03.09 19:40

Schnell mal getippt:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
function GetMyString(Value: String): String;
var
  i, Cur: Integer;
begin
  SetLength(Result, Length(Value));
  Cur := 1;
  for i := 1 to Length(Value) do
    if Value[i] in ['a'..'z''A'..'Z''0'..'9'then
    begin
      Result[Cur] := Value[i];
      Inc(Cur);
    end;
  SetLength(Result, Cur - 1);
end;


Yogu - Di 10.03.09 19:42

Hallo,


(Eigentlich war das jetzt so gedacht, dass der Threadstarter den Code dazu schreibt, aber da war wohl jemand schneller :()

Grüße,
Yogu


Biarchiv - Di 10.03.09 19:59

THX, geht super.