Курсовая работа: Создание программы на языке Delphi 70 Написание программы
68. {$I-}
69. reset(f);
70. {$I+}
71. if IOResult <> 0 then
72. Rewrite (f);
73. t:='';
74. j:=1;
75. StringGrid1.Cells[0,0]:='№ п/п';
76. StringGrid1.Cells[1,0]:='Клиент';
77. StringGrid1.Cells[2,0]:='Операция';
78. StringGrid1.Cells[3,0]:='Дата начала работы с клиентом';
79. StringGrid1.Cells[4,0]:='Срокабон. платы';
80. while not EOF(f) do begin
81. Readln(f,str);
82. i:=0;
83. for k:=1 to Length(str) do begin
84. if str[k] = '|' then begin
85. StringGrid1.Cells[i,j]:=t;
86. i:=i+1;
87. t:='';
88. end
89. else
90. t:=t+str[k];
91. end;
92. j:=j+1;
93. end;
94. CloseFile(f);
95. end;
96. end.
|