Delphi - strip special chars
-
Nadeo
Guru wannabe
- Príspevky: 2202
- Registrovaný: 04 nov 2006, 19:38
- Bydlisko: BA/LV
- Kontaktovať používateľa:
Delphi - strip special chars
Existuje nejaka fcia na vymazanie vsetkych specialnych znakov(@-?,!.- a pod) zo stringu? Alebo si to musim napisat sam? Dik.
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
-
Nadeo
Guru wannabe
- Príspevky: 2202
- Registrovaný: 04 nov 2006, 19:38
- Bydlisko: BA/LV
- Kontaktovať používateľa:
Kód: Vybrať všetko
function stripspecchars(word: ansistring):ansistring;
var
rslt : ansistring;
begin
rslt := AnsiReplaceStr(rslt, '@', 'a');
rslt := AnsiReplaceStr(rslt, '?', '');
rslt := AnsiReplaceStr(rslt, '!', '');
rslt := AnsiReplaceStr(rslt, '-', '');
rslt := AnsiReplaceStr(rslt, '_', '');
rslt := AnsiReplaceStr(rslt, '/', '');
rslt := AnsiReplaceStr(rslt, '(', '');
rslt := AnsiReplaceStr(rslt, ')', '');
Result := rslt;
end;
Konkretne mi to cely string zmaze. Mozno tam mam nejaku amatersku chybu...-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
nezmaže ti ho, iba ho nikde nepoužiješ a ani nepredáš vo výstupe funkcie. Prvý riadok bude takto:
alebo ešte pred ním dáš ten word do rslt-u, takže
Kód: Vybrať všetko
rslt := AnsiReplaceStr(word, '@', 'a');Kód: Vybrať všetko
rslt:=word;