SaveDialog1.?

Jamen den tekst som står i DBEdit1 har du vel allerede liggende i din Database, hvorfor så gemme i en fil ?

var

  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                    { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

hmm skal jeg ikke pege på en fil ??

Jo da det gør du her

OpenDialog1.FileName
denne linie får din dialogbox til at pope op

Hvis du har filnavnet kan du jo gøre sådan her

AssignFile(F, \'MinFil.txt\');
Reset(F);
Write(F, DBEdit1.Text);                       
CloseFile(F);

hmmm den poper staig op...

Hvem popper op :)

Hvis det er dialogboxen skal du
fjerne denne linie
if OpenDialog1.Execute then           

ok nu siger den blot I/O error 105

prøv den her :

procedure TForm1.Button1Click(Sender: TObject);
var
  MemoryStream : TMemoryStream;
  s : PChar;
begin
  DBEdit1.Text := \'hÆzd\';
  if not SaveDialog1.Execute then
    exit;
  MemoryStream := TMemoryStream.Create;
  s := PChar(DBEdit1.Text);
  Caption := s;
  MemoryStream.WriteBuffer(Pointer(S)^, Length(S));
  MemoryStream.Position := 0;
  MemoryStream.SaveToFile(SaveDialog1.FileName);
  MemoryStream.Free;

end;