desarrollosconsejeria/adtos-aula/1.7-0/adtosmensajes/global.pas @ 23a384b9
| a2ba555f | Elisa | unit global;
|
|
{$mode objfpc}{$H+}
|
|||
interface
|
|||
uses
|
|||
| 23a384b9 | Elisa | Classes, SysUtils;
|
|
| a2ba555f | Elisa | var
|
|
| 23a384b9 | Elisa | g_fichero_conf:string='/etc/adtosadmin.conf';
|
|
| a2ba555f | Elisa | g_ExploradorArchivos:string='nautilus';
|
|
g_dirmensaje:string;
|
|||
g_carpeta:string;
|
|||
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;
|
|||
| 23a384b9 | Elisa | ||
| a2ba555f | Elisa | implementation
|
|
| 23a384b9 | Elisa | ||
| a2ba555f | Elisa | Function CambiaCaracteres(frase:string):string;
|
|
var
|
|||
comando:string;
|
|||
begin
|
|||
comando:=frase;
|
|||
writeln(comando);
|
|||
comando:=StringReplace(comando,'ñ','ñ',[rfReplaceAll]);
|
|||
| 23a384b9 | Elisa | writeln(comando);
|
|
| a2ba555f | Elisa | result:=comando;
|
|
end;
|
|||
end.
|