Может кто знает из Delphi

Germany.ru → Foren → Архив Досок→ Programmierung

395 просмотров Перейти к просмотру всей ветки

20.02.08 12:37

Re: Может кто знает из Delphi

megabyte завсегдатай

in Antwort Quo Vadis 20.02.08 11:22

Да...
Ну например
30: CP.SENDSTRING('kmh,g'+chr(13)+chr(10));
Speed:=cp.READSTRING();
Speed:=trim(Speed);
If (length(Speed)<3) and (length(Speed)>5) then goto 30;
заменяется на
do
CP.SENDSTRING('kmh,g'+chr(13)+chr(10));
Speed:=cp.READSTRING();
Speed:=trim(Speed);
until (length(Speed)>=3) оr (length(Speed)<=5);
мой пример может содержатся ошибки... не помню синтаксис паскаля...

Sprung zu