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

8.Button1: TButton;

9.StringGrid1: TStringGrid;

10. procedure Button1Click(Sender: TObject);

11. procedure FormCreate(Sender: TObject);

12. private

13. { Private declarations }

14. public

15. { Public declarations }

16. end;

17. var

18. Form1: TForm1;

19. implementation

20. {$R *.dfm}

21. procedure TForm1.Button1Click(Sender: TObject);

22. var

23. f:TextFile;

24. i,j,g:integer;

25. Fname,str1,str2,str3,str4,str5: string;

26. begin

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

28. AssignFile (f,fname);

29. Rewrite (f);

30. i:=0;

31. j:=1;

32. for g:=1 to 1000 do begin

33. begin

34. str1:='';

35. str2:='';

36. str3:='';