desarrollosconsejeria/aulalinex-ltsp-server/4.2-2/mensajeltsp/global.pas @ 23a384b9
| 23a384b9 | Elisa | unit global;
|
|
{$mode objfpc}{$H+}
|
|||
interface
|
|||
uses
|
|||
Classes, SysUtils;
|
|||
var
|
|||
g_dirmensaje:string='/tmp/.mensaje_aulalinex.ini';
|
|||
g_carpeta:string='/tmp/';
|
|||
g_tipo:integer;
|
|||
g_mensaje,g_titulo,g_usuario:string;
|
|||
g_tiempo:integer;
|
|||
g_archivo:integer;
|
|||
g_parcorrecto:boolean=false;
|
|||
Function CambiaCaracteres(frase:string):string;
|
|||
implementation
|
|||
Function CambiaCaracteres(frase:string):string;
|
|||
var
|
|||
comando:string;
|
|||
begin
|
|||
comando:=frase;
|
|||
writeln(comando);
|
|||
comando:=StringReplace(comando,'ñ','ñ',[rfReplaceAll]);
|
|||
writeln(comando);
|
|||
result:=comando;
|
|||
end;
|
|||
end.
|