|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: String trennen
24. Feb 2014, 16:01
Delphi-Quellcode:
i:=0;
maxlen:=length(zeile);
if maxlen>0 then begin
i:=1;
while (i<maxlen) and (Zeile[i]=' 0') do inc(i,1);
if Zeile[i]<>' 0' then dec(i,1);
end;
ist i>0 dann ist das die letzte 0-Position
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|