[[seoane]]

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;


// Por ejemplo
SaveToUnixFile('C:\1.txt',Memo1.Text);