Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TMainForm.OpenFileClick(Sender: TObject);
- Var
- FileInput: File of TAllInfo;
- Temp: STGroup;
- Item: TListItem;
- begin
- If OpenDialog.Execute Then
- Begin
- Try
- Try
- AssignFile(FileInput, ChangeFileExt(OpenDialog.FileName, '.txt'));
- Reset(FileInput);
- ClearLinkedList;
- StudentListView.Clear;
- LViewTeam.Clear;
- While Not Eof(FileInput) do
- Begin
- New(Temp);
- Temp^.Next := Nil;
- Read(FileInput, Temp^.Info);
- InsertInDataList(Temp^);
- Dispose(Temp);
- End;
- Temp := GroupList.Head;
- While Temp <> Nil do
- Begin
- Item := LViewTeam.Items.Add;
- Item.Caption := IntToStr(Temp^.Info.Data.GroupNumber);
- Item.SubItems.Add(IntToStr(GroupList.Tail^.Info.Data.YearOfStart));
- Item.SubItems.Add(IntToStr(GroupList.Tail^.Info.Data.Code));
- Item.SubItems.Add(IntToStr(GroupList.Tail^.Info.Data.Students));
- Temp := Temp^.Next;
- End;
- SaveFile.Enabled := True;
- Except
- MessageBox(Handle, 'Файл некорректен!', 'Внимание!',
- MB_OK + MB_ICONWARNING);
- End;
- Finally
- If FileExists(ChangeFileExt(SaveDialog.FileName, '.txt')) Then
- Begin
- CloseFile(FileInput);
- End;
- End;
- End;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement