Advertisement
altervisi0n

Untitled

Jun 1st, 2023
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.37 KB | None | 0 0
  1. procedure TMainForm.OpenFileClick(Sender: TObject);
  2. Var
  3. FileInput: File of TAllInfo;
  4. Temp: STGroup;
  5. Item: TListItem;
  6. begin
  7. If OpenDialog.Execute Then
  8. Begin
  9. Try
  10. Try
  11. AssignFile(FileInput, ChangeFileExt(OpenDialog.FileName, '.txt'));
  12. Reset(FileInput);
  13. ClearLinkedList;
  14. StudentListView.Clear;
  15. LViewTeam.Clear;
  16. While Not Eof(FileInput) do
  17. Begin
  18. New(Temp);
  19. Temp^.Next := Nil;
  20. Read(FileInput, Temp^.Info);
  21. InsertInDataList(Temp^);
  22. Dispose(Temp);
  23. End;
  24. Temp := GroupList.Head;
  25. While Temp <> Nil do
  26. Begin
  27. Item := LViewTeam.Items.Add;
  28. Item.Caption := IntToStr(Temp^.Info.Data.GroupNumber);
  29. Item.SubItems.Add(IntToStr(GroupList.Tail^.Info.Data.YearOfStart));
  30. Item.SubItems.Add(IntToStr(GroupList.Tail^.Info.Data.Code));
  31. Item.SubItems.Add(IntToStr(GroupList.Tail^.Info.Data.Students));
  32. Temp := Temp^.Next;
  33. End;
  34. SaveFile.Enabled := True;
  35. Except
  36. MessageBox(Handle, 'Файл некорректен!', 'Внимание!',
  37. MB_OK + MB_ICONWARNING);
  38. End;
  39. Finally
  40. If FileExists(ChangeFileExt(SaveDialog.FileName, '.txt')) Then
  41. Begin
  42. CloseFile(FileInput);
  43. End;
  44. End;
  45. End;
  46. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement