Nasıl Kaydediyo??

[The MeLiX]

arkadaşlar savedialog bide Memo attım forma butona şu kodları yazdım:

Kod: Tümünü seç

  if SaveDialog.Execute then
  begin
    if FileExists(SaveDialog.FileName) then
    Memo1.Lines.SaveToFile(SaveDialog.FileName);
    Memo1.Modified := False;

Kaydetme Panceresi Açılıyo Ama Kaydetmiyo?? Sizce Neden .. Kod Olarak Ne Yazmam Gerekiyo?

[vedatkaba]

Kod: Tümünü seç

procedure Tform1.formcreate(sender:Tobject);
    begin
         savedialog1.defaultext:='txt';
end;

Kod: Tümünü seç

if savedialog1.execute then
 begin
memo1.lines.savetofile(savedialog1.filename);
end;
end;

[fduman]

Kod: Tümünü seç

  if SaveDialog.Execute then
  begin
    Memo1.Lines.SaveToFile(SaveDialog.FileName);
    Memo1.Modified := False;

Dosyanın olup olmadığını kontrol etmemelisin. Çünkü dosya henüz oluşmadı. Dolayısıyla şart "false" olacağından SaveToFile method'u hiçbirzaman çağırılmayacaktı. SaveDialog dosyayı yaratmaz, sadece nereye yaratmak istediğin bilgisini alır. SaveToFile ile dosya yaratılır ve bilgiler yazılır.

Lütfen "kaydetmiyo" yerine kaydetmiyor, "gerekiyo" yerine gerekiyor yazarak Türkçe'mizi olabildiğince güzel kullanmaya çalışalım.

[The MeLiX]

ok saolun