|
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.
|
|
|