Hoy tengo ganas de programar
:
Código Delphi
[-]
function SaveToUnixFile(Filename, Text: String): Boolean;
var
F: File;
Escritos: Integer;
begin
Result:= FALSE;
AssignFile(F,Filename);
{$I-}
Rewrite(F,1);
{$I+}
if IOResult = 0 then
begin
Text:= StringReplace(Text,#13,EmptyStr,[rfReplaceAll]);
BlockWrite(F,PChar(Text)^,Length(Text),Escritos);
Result:= Escritos = Length(Text);
CloseFile(F);
end;
end;
SaveToUnixFile('C:\1.txt',Memo1.Text);