1. ben OpenDialog Ve SaveDialog dosya uzantıları belirlemek istiyorum ancak olmuyor kod dorur da neden
OpenDialog Ve SaveDialog açıldığında hiç biri dosya uzantılarını göstermiyorlar
2. SaveDialog ile resim kayit edeceyim ancak nedense olmuyor (SavePictureDialog-da ki gibi filer özeliyini belirliyorum yine olmuyor) dosya uzantısını kayıt etmiyor kayıt edilen dosyayı File olarak belirliyor
CiTiZEN yazdı:Opendialog ve savedialog ile alakalı birsürü makale var gerek forumda gerekse google da
örnek var ancak nedense olmuyor bak şimdi kodu ele yazıyorum çalışıyor ancak istediyimi yapmıyor belki hata yapdım diye
copy/paste ypadım yine olmadı ( ) hayret bir şey ancak oysa kodun bu işe yaradığını söylüyor (ya kod yanlış ya da ben yanlış yapıyorum)
ne olursunuz yardım etsenize yapdığım program sadece bunu bekliyor
procedure TForm1.Button_DosyaAcClick(Sender: TObject);
var
I: integer;
F: TextFile;
IlkSatir: string;
begin
OpenDialog1.Options:= [ofAllowMultiSelect, ofFileMustExist];
OpenDialog1.Filter:= 'Tüm Dosyalar (*.*)|*.*| BMP Dosyalar (*.BMP)|*.bmp';
OpenDialog1.FilterIndex:= 1;
if OpenDialog1.Execute then
begin
Memo1.Clear;
with OpenDialog1.Files do
begin
for I:= 0 to Count - 1 do
begin
AssignFile(F, Strings[I]);
Reset(F);
Readln(F, IlkSatir);
Memo1.Lines.Append(IlkSatir);
CloseFile(F);
end;
end;
Edit1.Text:= OpenDialog1.FileName;
end;
sana "SaveDialog1" için khanco arkadaşımız çözüm örneği vermiş.
Sora sora bağdat bulunurmuş sende Delphi öğreneceksin Bu tarz mevzuları biraz düşündükten sonra halletsen beyin cimnastiği açısından iyi olur.Tahminimce fazla yormadın kendini bunun cevabı için...Neyse bir balık daha ısmarlayalım....
dialog.filename:='';
while Trim(dialog.filename)='' do
Begin
dialog.execute;
if Trim(dialog.filename)='' then
ShowMessage('Dosya Belirlemeniz Gerekiyo');
End;
Bu kod ile bir dosya seçilip aç diyene kadar dialog ekranı kapanmayacaktır...
) hayret bir şey ancak oysa kodun bu işe yaradığını söylüyor (ya kod yanlış ya da ben yanlış yapıyorum) 
Bu tarz mevzuları biraz düşündükten sonra halletsen beyin cimnastiği açısından iyi olur.Tahminimce fazla yormadın kendini bunun cevabı için...Neyse bir balık daha ısmarlayalım.... 
