dosyaya kaydetme?

[safadalar]

merhaba arkadaşlar

bir sorum var form üzerine birkaç edit koydum bunları bir butonla denetleyerek içindeki sayılar 10 dan büyükse farklı bir renk, 20 den büyükse farklı bir renk almalarını sağladım. bu değerleri renkleriyle birlikte bir dosyaya kaydetmek istiyorum. nasıl bir yol izlemeliyim. bu konuda yardım rica ediyorum...

herkese kolay gelsin...

[PowerSoft]

VAR
DOSYA : TextFile;
KAYIT : STRING[110];
BEGIN

AssignFile(DOSYA,'RENK.INI');
{$I-}
RESET(DOSYA);
{$I-}
IF IOResult <> 0 THEN
BEGIN
//ShowMessage('DOSYA YOK');
Rewrite(DOSYA);
KAYIT :='ISTEDIĞINI YAZ'; WriteLN(DOSYA,KAYIT);
CloseFile(DOSYA);
END;
Reset(DOSYA);
ReadLN(DOSYA,KAYIT);
EDIT1.TEXT := KAYIT;// TURUNDE DIYEBİLİRSİN RENKLERLE ILGILI NE YAPIYORSAN SAYET;

END;

[safadalar]

dediğin gibi yaptım fakat AssignFile(DOSYA,'RENK.INI'); satırında bir hata verdi

undeclared identifier: 'renk'

renk.ini dosyasını bir yerde tanıtmamız gerekiyor galiba?

[Ansugo]

Ini dosyasi kullanman cogu zaman daha uygun olur. delphi.about'ta http://delphi.about.com/od/objectpas.../aa120401a.htm makalesi bu konuda referans olabilir.

[PowerSoft]

Orada hata vermemesi lazım çünkü ben aynısını kullanıyorum...Su olabilir senin kullandığın Unitler arasında AssignFile uniti olmaya bilir...System Unitini ekle değilse...
Sorun yok yani ben aynısını kullanıyorum sadece renk yerine bende WSDL.INI yazıyor...
Kolay Gelsin...

[safadalar]

anladım peki assignfile ı nasıl eklicez yani onun eklenme şekli direkt assignfile olarak mı bir de uses kısmına eklicem değil mi yani unit kısmına derken nasıl orasını anlamadım?

[PowerSoft]

uses bölümünde
System varsa çalışması lazım dur bende ki de değiştirmeden atayım sana
AssignFile(DOSYA,'WSDL.INI');
{$I-}
RESET(DOSYA);
{$I-}
IF IOResult <> 0 THEN
BEGIN
//ShowMessage('DOSYA YOK');
Rewrite(DOSYA);
KAYIT := 'ProvizyonIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'SevkBildirimIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'OdemeBilgisiIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'OdemeDurumKontrolIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'FaturaBilgisiIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'RaporIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'YardimciIslemler.wsdl'; WriteLN(DOSYA,KAYIT);
CloseFile(DOSYA);
END;
Reset(DOSYA);
FOR I := 1 TO 1 DO
ReadLN(DOSYA,KAYIT);
WSDLADI := KAYIT;
CloseFile(DOSYA);

[safadalar]

tamam şimdi oldu ama değer siyah renkte yazılıyo neden böyle oldu yani programı çalışırınca edit1 deki sayıyı bir butonla denetliyorum 15 den büyükse mavi yazıyo diğer butona da bu kodları yazdım wsdl.ini dosyasına kaydediyo. edit1 e mesela 20 girince butona basınca edit1 deki 20 azısı mavi oluyo, diğer butona basıp dosyaya kaydedince ise siyah yazıyo ben oraya da mavi yazılmasını istiyorum 20 nin bilmiyorum anlatabildimmi bunu yapmak mümkünmü acaba yardımların içn teşekkürler ayrıca

[PowerSoft]

Formun Active Özelliğinede Yaz Dosyadan okuma işlemini...
AssignFile(DOSYA,'WSDL.INI');
{$I-}
RESET(DOSYA);
{$I-}
Reset(DOSYA);
FOR I := 1 TO 1 DO
ReadLN(DOSYA,KAYIT);
WSDLADI := KAYIT;
CloseFile(DOSYA);

Bu kısmını kullanarak okuma yapacaksın dosyadan ondan sonra buton renk değişikliği için yazdığın bölümü buraya da yazacaksın...
Dosyaya Direk Mavi Yazabileceğini Düşünmüyorum o belki yapılabilir ama ben bilmiyorum öyle bir ihtiyacım hiç olmadı çünkü... Araştırma gereğini görmedim. Ama dosyaya yazıların renklerini yaz sonra okursan sorun olmaz ama...

[safadalar]

teşekkürler