t_id
968
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950238886 | 1015711 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2589 } { Submitted by "Al Led" on 2003-07-23 } { e-mail: alled@volny.cz } {$mode objfpc} program Test; uses SysUtils; var __ReadData, __Calculate : boolean; begin __ReadData := true; while __ReadData do begin // read data from input... __readdata:=false; __Calculate := false; try // ********************************************** // next construction with Continue statement // causes linking error // but only if next code contains another // while...do loop [!!!] if not __Calculate then // no more calcs -> Continue; // skip rest and read // next data... // ********************************************** // another required operations, checks -> // maybe __Calculate := false; // [!!!] while __Calculate do begin // do something... -> // -> save results... // checks -> maybe __Calculate := false; end; except on E:exception do raise Exception.Create('Err : ' + E.Message); end; // try..except end; // while __ReadData... end.