bir program yapıyorum da,öğrenci notlarını hesaplatacak ve bu bilgileri textfile da saklayacak bir program.Fakat sorun şu ki verileri programdan dosyaya yazdırıyorum fakat bun ları şu şekilde görmesi lazım;
2001 1 1 45
2001 1 2 56
2001 1 3 78
2002 2 1 98
2002 2 2 56
2002 2 3 45
2003 3 1 45
2003 3 2 67
2003 3 3 74
Burada veriler yıla göre programa çağırılacak yani dizi[1,3]=2001 1 3 78
kısacası 3 lü bloklar halinde olması lazım şimdiden saolun..şimdiye kadar sölediğim yerle ilgili kodlarım yarımyamalak şöyle;
Kod: Tümünü seç
procedure TForm1.Kaydet1Click(Sender: TObject);
var a,i,j:integer;
dizi:array [1..14] of array[1..14] of String;
begin
if SaveDialog1.Execute then begin
AssignFile(myfile,SaveDialog1.FileName);
if not FileExists(SaveDialog1.FileName) then begin
Rewrite(myfile);
CloseFile(myfile);
end;
for a:=1 to 14 do begin
Append(myfile);
ogrenci.sinif:=strToint(Edit17.Text);
ogrenci.Tarih[a]:=Edit16.text;
if sg.Cells[a,1]<>'' then
ogrenci.Notlar[a]:=strToint(sg.Cells[a,1]);
ogrenci.modul[a]:=strToint(sg.Cells[a,0]);
for i:=low(dizi) to high(dizi) do begin
for j:=low(dizi[i]) to high(dizi[i]) do begin
?
?
?
?
?
end;
end;
Writeln(myfile,dizi[i][j]+' '+intTostr(ogrenci.sinif)+' '+intTostr(ogrenci.modul[a])+' '+intTostr(ogrenci.Notlar[a]));
Flush(myfile);