Sonderzeichen

[Sladjana Topalovic]

Hi,

ich brauche Euere Hilfe!
Ich muß irgendwie rausfinden, ob sich im bestimmten Feld Sonderzeichen befinden und wenn ja, sollen sie(nur Sonderzeichen) gelöscht werden.

Beispiel: 07358/1565-565 => 073581565565

Vielen, vielen Dank

Sladjana

[Jörg Prepadnik]

<PRE>
function OhneUngueltigeZeichen(S: String): string;
var
i1, i2: integer;
begin
Result := '';
for i1 := 1 to length(S) do begin
i2 := ord(S[i1]);
if (i2 in [$20..$7F]) then
Result := Result + S[i1];
end;
end;
</PRE&gt

[Sladjana Topalovic]

werde gleich ausprobieren,

Dankeschön!!

Sladjan

[Sladjana Topalovic]

habe zwar bißchen abgeändert und es hat geklappt

s:= fh_fax.Text;
result := '';
for i1 := 1 to length(S) do begin
i2 := ord(S[i1]);
// if (i2 in [$20..$7F])then
if (i2 >= 33) and (i2 < 48) then
result := result + S[i1];
end;
fh_fax.Text := result;

hast mir sehr geholfen!

Gruß
Sladjan

[Sladjana Topalovic]

habe bißchen abgeändert und es hat funktioniert!!

s:= fh_fax.Text;

result := '';

for i1 := 1 to length(S) do begin

i2 := ord(S[i1]);

// if (i2 in [$20..$7F])then

if (i2 >= 33) and (i2 < 48) then

result := result + S[i1];

end;

fh_fax.Text := result