Function in test

Delphi code posted by Daniel A. Bastos
created at 11 Jul 01:10, updated at 14 Apr 12:56

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
 
function Checkhighlighting(str : string) : boolean;
var
  ct : integer;

begin
  for ct := 0 to Length(str) to
    if str[ct] = 'a' then
    begin
      //ShowMessage('Amostrar teste');
      break;
    end;
end;
223 Bytes in 4 ms with coderay