Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 667

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
В прикрепленном файле все сведения...

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Приложение:
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls, Grids;
  8.  
  9. type
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. End;
  17.  
  18. TForm1 = class(TForm)
  19. StringGrid1: TStringGrid;
  20. OpenDialog1: TOpenDialog;
  21. Button1: TButton;
  22. Button2: TButton;
  23. Label1: TLabel;
  24. Label2: TLabel;
  25. Label3: TLabel;
  26.  
  27.  
  28.  
  29.  
  30. private
  31. { Private declarations }
  32. public
  33. { Public declarations }
  34. end;
  35.  
  36. const
  37.  
  38.  
  39.  
  40.  
  41. var
  42. Form1: TForm1;
  43.  
  44.  
  45.  
  46. implementation
  47.  
  48. {$R *.dfm}
  49.  
  50.  
  51. procedure Add_Worker(var root:PWorker; Work:TWorker);
  52. var temp_Worker:PWorker;
  53. begin
  54. temp_Worker:=root;
  55. if (temp_Worker<>nil) then
  56. begin
  57. while (temp_Worker^.Next<>nil) do
  58. temp_Worker:=temp_Worker^.Next;
  59. New(temp_Worker^.Next);
  60. temp_Worker:=temp_Worker^.Next;
  61. end
  62. else
  63. begin
  64. New(temp_Worker);
  65. root:=temp_Worker;
  66. end;
  67. temp_Worker^.fam:=Work.fam;
  68. temp_Worker^.name:=Work.name;
  69. temp_Worker^.otc:=Work.otc;
  70. temp_Worker^.Next:=nil;
  71. end;
  72.  
  73.  
  74.  
  75. procedure TForm1.write_Worker(root:PWorker);
  76. var temp_Worker:PWorker;
  77. i:integer;
  78. begin
  79. i:=1;
  80. temp_Worker:=root;
  81. if (root<>nil) then
  82. While (temp_Worker<>nil)
  83. do
  84. begin
  85. StringGrid1.Cells[0,i]:=IntToStr(i);
  86. StringGrid1.Cells[1,i]:=temp_Worker.fam;
  87. StringGrid1.Cells[2,i]:=temp_Worker.name;
  88. StringGrid1.Cells[3,i]:=temp_Worker.otc;
  89. i:=i+1;
  90. temp_Worker:=temp_Worker^.Next;
  91. StringGrid1.RowCount:=i;
  92. end;
  93. end;
  94.  
  95.  
  96. procedure TForm1.Button1Click(Sender: TObject);
  97. var FileName:string;
  98. begin
  99.  
  100. begin
  101.  
  102. AssignFile(Fil, FileName);
  103. Label1.Caption:=FileName;
  104.  
  105. end;
  106. root:=nil;
  107. end;
  108.  
  109.  
  110. procedure TForm1.FormCreate(Sender: TObject);
  111. begin
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118. end;
  119.  
  120.  
  121. procedure TForm1.Button2Click(Sender: TObject);
  122.  
  123.  
  124.  
  125. begin
  126.  
  127.  
  128. StringGrid1.Cells[0,1]:='';
  129. StringGrid1.Cells[1,1]:='';
  130. StringGrid1.Cells[2,1]:='';
  131. StringGrid1.Cells[3,1]:='';
  132.  
  133.  
  134. Reset(Fil);
  135. Readln(Fil,s);
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151. do
  152. begin
  153.  
  154. if (Length(s)>0) then
  155. OemToChar(Pchar(S), Pchar(S));
  156. i:=Pos(a2,s);
  157.  
  158.  
  159. continue;
  160.  
  161.  
  162.  
  163. begin
  164. i:=i+1;
  165. end;
  166.  
  167. Work.fam:='';
  168.  
  169. while (s[i]<>'"') do
  170. begin
  171. Insert(s[i],Work.fam,length(Work.fam)+1);
  172.  
  173. i:=i+1;
  174. end;
  175.  
  176.  
  177. Work.name:='';
  178. while (s[i]<>'"') do
  179. begin
  180. Insert(s[i],Work.name,length(Work.name)+1);
  181. i:=i+1;
  182. end;
  183.  
  184.  
  185. Work.otc:='';
  186. while (s[i]<>'"') do
  187. begin
  188. Insert(s[i],Work.otc,length(Work.otc)+1);
  189. i:=i+1;
  190. end;
  191. Work.Next:=nil;
  192.  
  193. Add_Worker(root,Work);
  194. end;
  195.  
  196. CloseFile(Fil);
  197.  
  198. end;
  199. end.


Fearless Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Fearless (статус: Посетитель)
Вопрос отправлен: 7 июня 2008, 12:58
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 20 августа 2017, 04:53
Выполнено за 1.11 сек.
Рейтинг@Mail.ru