| ( |
|
|
|||
| returns 1, in case of OS Windows usage, or 0 - in case of Mac OS | |||
global
procedure AddBC128Flags(var string tstr)
begin
if (windowsMode==1) then begin
tstr =Chr(235) & tstr & Chr(232) & Chr(214);
end else begin
tstr =Chr(145) & tstr & Chr(143) & Chr(133);
end;
return;
end;
 |
|
| Related topics: | |