RTF Kaydetme Sorunu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

RTF Kaydetme Sorunu

Mesaj gönderen VooDoo »

selamlar,
bu sira sorun ustune sorun oluyor delircem

RichEdit teki rtf yi baska bir formda kaydedebiliyorum ama ana programin icindeki acilan yeni formdan yapamiyorum

if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

kod da bu sekilde

Access Violation aliyorum

nedenini anlamış değilim :(((
oguzozturk74
Kıdemli Üye
Mesajlar: 574
Kayıt: 01 Şub 2004 12:29
Konum: Erdemli - MERSİN

Mesaj gönderen oguzozturk74 »

Başka bir formda ki bileşene ulaşmak istiyorsan , önce o formun adını belitmelisin :idea:

Kod: Tümünü seç

Form1.Richedit1...... 


gibi
phpdelphi
Üye
Mesajlar: 9
Kayıt: 02 Haz 2005 12:40
İletişim:

Mesaj gönderen phpdelphi »

yanliz benim anladigim baska bir formdan degilde o formun icinden ulasiyor arkadas!!!!!

buna benzer bende kullaniyorum ama sorun cikmiyor
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

Mesaj gönderen ALUCARD »

büük bi ihtimalle almaya çalışıtğı formu create edilmemiş bi form ondan yapıyor. :o
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

Mesaj gönderen VooDoo »

alakası yok arkadaşlar

yeni açılan formun unitinin icinde tum bu kodlar,

baska bir yerden de cagrilmiyor, kendi icinden kullaniliyor

yanlış anlamışsınız olayı
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

Mesaj gönderen VooDoo »

SaveDialog1.Execute kisminda hata her nedense ve anlamış değilim
oguzozturk74
Kıdemli Üye
Mesajlar: 574
Kayıt: 01 Şub 2004 12:29
Konum: Erdemli - MERSİN

Mesaj gönderen oguzozturk74 »

Kodunuzu formun OnShow unda mı çalıştırıyorsunuz?
veya, bu kodu hangi olyda çalıştırıyorsunuz ?
biraz daha açarsanız daha iyi olacak...
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

Mesaj gönderen VooDoo »

olay su
sistemimde rtf formatında makaleler var
DbGrid ten secilen sag tarafta richedit de gosterilmekte
ve birde buton var kaydet diye bu kaydet butonun gosterdigi yordamda bu islemleri yapiyorum ama her nedense bu execute kisminda bahsettigim exceptionu aliyorum

uses kisminda dialogs dahildir bu arada
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

Mesaj gönderen VooDoo »

kimse bilmiyor sanirim :cry:
Kullanıcı avatarı
bluekid
Kıdemli Üye
Mesajlar: 541
Kayıt: 11 Haz 2004 10:45
İletişim:

Mesaj gönderen bluekid »

anlattığın kadarıyla pek bir sorun görülmüyor
ama yinede aşağıdaki makaleyi bir inceleyin belki atladığınız
bir şeyler vardır kolay gelsin...
http://delphi.about.com/od/objectpascal ... 52201b.htm
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

Mesaj gönderen VooDoo »

tesekkurler guzel bir article

sanirim sorun anlasildi savedialog bilesenim nedense aktif degil yani yaratilmamis, ama onceki deneme programimda da ayni sekilde ben birsey yapmadim yani
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

Mesaj gönderen VooDoo »

procedure TDilekceForm.Button3Click(Sender: TObject);
var
saveDialog : TSaveDialog; // Save dialog variable
begin
// Create the save dialog object - assign to our save dialog variable
saveDialog := TSaveDialog.Create(self);

// Give the dialog a title
saveDialog.Title := 'Save your text or word file';

// Set up the starting directory to be the current one
saveDialog.InitialDir := GetCurrentDir;

// Allow only .txt and .doc file types to be saved
saveDialog.Filter := 'Text file|*.txt|Word file|*.doc';

// Set the default extension
saveDialog.DefaultExt := 'txt';

// Select text files as the starting filter type
saveDialog.FilterIndex := 1;

// Display the open file dialog
if saveDialog.Execute
then ShowMessage('File : '+saveDialog.FileName)
else ShowMessage('Save file was cancelled');

// Free up the dialog
saveDialog.Free;
end;

bu sekilde bile calismiyor ayni hatayi veriyor ayni form icinden deneyince
Kullanıcı avatarı
kadirkurtoglu
Üye
Mesajlar: 748
Kayıt: 22 May 2005 01:20
Konum: Uzakta Görünen Tepeden...

Mesaj gönderen kadirkurtoglu »

arkadaşım herkes sana cevap yazıyor ancak senin yukaırda belirttiğin kodda hiç bir yanlışlık yok. ben özellikle denedim aynısını hatta kodu senin yazdığından kopyala yapıştır yaptım. run yaptım çalıştı ve birşeyler yazıp kaydettim problem yok. sen problemi bu olaya bağlama senin problemin bu değil. bu işi griddean alıyorum dedin. yani gridden richedit eaktarma yaparken bi problem yokmuş gibi görünebilir. veya başka birşey var olayda. arkadaşlar aynısını deneybilir bir problem yok çalışıyor..... kolay gelsin....
Bir mum, yanındaki mumları tutuşturmakla,
ışığında hiç bir şey kaybetmez.

Mevlana

OS win.10, IDE Delphi 10.3, RDBMS Firebird and MSSQL, BROWSER Chrome
Kullanıcı avatarı
VooDoo
Üye
Mesajlar: 126
Kayıt: 22 Haz 2005 10:25
Konum: Bursa & ANKARA
İletişim:

Mesaj gönderen VooDoo »

su varki hakli olabilirsin fakat olayi birde baska bir form acarak dene bakalim ne oluyor

ben o formda hcibrsey yapmadan da deniyorum yani gridden birsey almadan da ve hata oluyor

sanirim birseyler karisiyor ama iste anlamasi guc
Kullanıcı avatarı
kadirkurtoglu
Üye
Mesajlar: 748
Kayıt: 22 May 2005 01:20
Konum: Uzakta Görünen Tepeden...

Mesaj gönderen kadirkurtoglu »

kardeş denedim hatta 3. formu bile projeye dahil edip denedim dosya isimlerini form1, form2 vs dedim ve kaydettim. kaydettiğim dosyaları açıp baktım kayıt var. yani hiç bir problem yok...

VooDoo demiş ki.......
su varki hakli olabilirsin fakat olayi birde baska bir form acarak dene bakalim ne oluyor
aklın yolu bir.

kolay gelsin...
Bir mum, yanındaki mumları tutuşturmakla,
ışığında hiç bir şey kaybetmez.

Mevlana

OS win.10, IDE Delphi 10.3, RDBMS Firebird and MSSQL, BROWSER Chrome
Cevapla