|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Char from set in string?
6. Jan 2013, 12:01
An other way might be
Delphi-Quellcode:
i:=0;
repeat
inc(i,1);
until (i>length(aIn)) or (aIn[i] in ParamSeps);
if I>length(aIn) then //sepchar found
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|