API tools faq
paste
Advertisement
altervisi0n

Untitled

altervisi0n
Jun 1st, 2023
61
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.37 KB | None | 0 0
raw download clone embed print report
  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
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!