文章

Delphi 一个新手较为优秀牛逼的循环方式

var
 S: string;
 I: Integer;
 Found: Boolean;
begin
 S := 'Hello World';
 Found := False;
 I := Low (S);
 while not Found and (I <= High(S)) do begin
 if (S[I]) = 'o' then
 Found := True;
 Inc (I);
 end;
原文来自:Delphi 一个新手较为优秀牛逼的循环方式,尊重自己,尊重每一个人;转发请注明来源!
0 0

发表评论