代码大全

} /* while -- copy input field */

*Filed = END_OF_STRING;

/* if at end of string, all actions are complete */

if (* InputStr != END_OF_STRING)

{
/* read past comma and subdsequent bkanks to get to the

next input field */

*InputStr++;

while (Inputstr == '' && InputStr != END_OF_STRING )

InputStr + +;

} /* if -- at the of string */

if case

end : { for Clientldx —— process record for eath client }
Ada
Pascal

for Tableldx:= 1 to TableCount
begin
while( Recordldx < RecordCount)
begin
if ( not IllegalRecNum( Recordldx ))
begin
...
end; { if }
end; { while}
end; { for }