pascal dizinin dosya ve dizinin

Question

Gerçekten yardım için umut yüzden pascal programlama bir begineer duyuyorum dosyasını;)

yüzden, dizinin oluşan bir dosya oluşturabilirsiniz bir program yapmak istiyorum ve bu dizi Daha sonra herhangi bir prosedür için parametre olarak kullanılabilir. burada bu dosya oluşturmak için yapılan kod: örneğin

type 
item = record 
    d:string; 
    t:integer; 
    n:string; 
    end; 

Ar = array[1..max] of item; 
f = file of Ar; 

var 
i,n =integer; 
begin 
read(n); 
assign(f, datafilm.dat); 
append(f); 
for i:=1 to n do 
    begin 
    readln(Ar[i].n); 
    readln(Ar[i].t); 
    readln(Ar[i].d); 
    i:=i+1; 
end; 
close(f); 
end.  

ve daha sonra kullanılmak üzere,:

if Ar[i].d=1 then begin end; 

bu doğru ??

ve bir dosyayı başka bir diziden ayırmayı nasıl bir dizi olarak atamak istersem? Örneğin, uzun bir cümle 1, uzun cümle 2 ve uzun cümle 3 farklı bir diziye oluşan bir dosya var mı ???

şimdiden teşekkürler!

Answer 1

Bu öğretmen tarafından verildi mi? Onlar Delphi 1 ile modası geçmiş bir dosyalama sistemi kullanarak size bir kötülük yapıyorlar. Bu varsayım TP (sabit boyutlu dizgileri ile) varsayarsak sorun sadece bir diziyi bir sayıyla karşılaştırmaktır. öyleyse StrToInt (ar [i] .d] veya ar [i] .d = '1';