yardımınız içi çok teşekkür ederim. sorun halloldu. fakat IOresult&lt;&gt;0 yerine IOresult&gt;=0 yazınca veriyi dosyaya yazıyor. dosya okurkende IOresult&lt;=0 olması gerekiyor. Ancak bu şekilde doğru çalışıyor. Bana bu IOresult mantığını açıklayabilirmisiniz, helpdeki anlatılanlar çok karışık da. :wink: :wink: :wink:

Selam, Düzenlenmiş hali aşağıdaki gibi olacak... var F: TextFile; P: TextFile; zaman:string; begin if edit1. text&lt;&gt;veri then begin Showmessage ; end else if edit1. text=veri then begin zaman:=datetostr ; AssignFile(F, 'C:\A1. txt'); Reset ; if IOResult &lt;&gt; 0 then begin Rewrite ; Writeln ; End Else ShowMessage ; CloseFile ; end; AssignFile ; Reset ; if IOResult&lt;&gt;0 then begin Rewrite ; Writeln ; end; CloseFile ; end; end

bir butonclick altında sistem tarihini bir txt dosyasına yazdırmak istiyorum. aynı butonclick altında başka bir veriyi başka bir txt dosyasına yazdırabilirken, tarihi bir türlü yazdıramadım, nerde hata yapıyorum?kod şu: var F: TextFile; P: TextFile; zaman:string; begin if edit1. text&lt;&gt;veri then begin Showmessage ; end else if edit1. text=veri then begin zaman:=datetostr ; AssignFile(F, 'C:\A1. txt'); Reset ; if IOResult = 0 then begin CloseFile ; Rewrite ; Writeln ; end else begin ShowMessage ; CloseFile ; end; AssignFile ; Reset ; if IOResult = 0 then begin CloseFile ; Rewrite ; Writeln ; end; end; end;

Sevgili Purple, IORESULT, standart pascal komutları arasında yeralan ve yapılan bir işlem sırasında ortaya çıkan ve işlemin operasyonel olarak durumunu gösteren değerlerin saklandığı global variable bir standart pascal değişkeni olarak tanımlayabiliriz. Fakat IORESULT kullanıcının değer atayarak kullanabileceği bir değişken gibi işlem görmemektedir. Kendisini ilgilendiren her işlemden sonra değeri, ilgili operasyonun sonuç durumunu gösteren sayısal değer alır.ioresult integer bir değişken olarak delphi internal işleme tabi tutulur. IORESULT değeri : 0 olması halinde işlemin başarılı olarak yapıldığını, diğer durumlarda (yani &gt;0 olması halinde) ilgili IORESULT değerine karşılık gelen hata veya durum ile karşılaşıldığını gösterir. örnek : Var a:integer; b, c:real; Begin b:=10; c:=0; a:=b/c; [$i+} if ioresult0 Then writeln ; End; Dosya operasyonlarında : AssignFile ; if ioresult&lt;&gt;0 Then Writeln ; Reset ; if ioresult=2 Then Writeln ; if ioresult=0 Then Writeln ; / Diğer ioresult değerlerini ve açıklamalarını help içinde / Run-time errors başlığı altında bulabilirsin. Saygılarımla. QuickPink.