problemas con FileWrite()
Publicado por chema (20 intervenciones) el 11/07/2006 16:34:26
Buenas.
Cuando pongo el código que muestro abajo en un botón, el resultado es que en mi fichero prueba.txt(que existe vacío) en vez de poner 'texto' va y me pone òC
¿alguien podría ayudarme?
Gracias.
VAR
ficheroabierto : Integer;
valor : String;
begin
FicheroAbierto := FileOpen('C:\Documents and Settings\Escritorio\prueba.txt', fmOpenReadWrite );
valor := 'texto';
FileWrite(FicheroAbierto,valor,sizeof(valor));
FileClose(FicheroAbierto);
end;
Cuando pongo el código que muestro abajo en un botón, el resultado es que en mi fichero prueba.txt(que existe vacío) en vez de poner 'texto' va y me pone òC
¿alguien podría ayudarme?
Gracias.
VAR
ficheroabierto : Integer;
valor : String;
begin
FicheroAbierto := FileOpen('C:\Documents and Settings\Escritorio\prueba.txt', fmOpenReadWrite );
valor := 'texto';
FileWrite(FicheroAbierto,valor,sizeof(valor));
FileClose(FicheroAbierto);
end;
Valora esta pregunta
0