|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Zeitkritische Array-Prüfung
20. Dez 2014, 22:52
Delphi-Quellcode:
i:=-1;
repeat
inc(i,1)
until i>=length(A1) or ((A1[i]-A28[i]=0) and Bedingung);
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|