david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
14 lines
169 B
ObjectPascal
14 lines
169 B
ObjectPascal
var
|
|
S: string;
|
|
begin
|
|
//S := '1234567890';
|
|
S := '';
|
|
try
|
|
Result := S[11];
|
|
except
|
|
on E: ERangeError do
|
|
Result := 'error';
|
|
end;
|
|
end;
|
|
|