Курсовая работа: Создание программы на языке Delphi 70 Написание программы

38. str5:='';

39. end;

40. if StringGrid1.Cells[0,j] <> '' then begin

41. str1:=StringGrid1.Cells[0,j];

42. str2:=StringGrid1.Cells[1,j];

43. str3:=StringGrid1.Cells[2,j];

44. str4:=StringGrid1.Cells[3,j];

45. str5:=StringGrid1.Cells[4,j];

46. end;

47. j:=j+1;

48. write(f,str1+'|');

49. write(f,str2+'|');

50. write(f,str3+'|');

51. write(f,str4+'|');

52. write(f,str5+'|');

53. writeln(f,'');

54.

55. end;

56. CloseFile(f);

57. end;

58.

59. procedure TForm1.FormCreate(Sender: TObject);

60. //Открытие и заполнение компоненты stringgrid

61. var

62. f: TextFile;

63. str,t,Fname: string;

64. k,i,j:integer;

65. begin

66. Fname:= 'd:/text.txt';