Black Man's questions

这是检查文件以确保输入数据的正确性以及从文件中获取数据并将其弹出到表中的过程。当你第一次点击执行此代码的按钮时，I/O Error 6 稳定爬出。当你点击第一个之后，一切正常。所以在表格的每个开头。为什么会发生这种情况以及如何解决？使用代码链接到 pastebin：https ://pastebin.com/WnmKQn3X

function CheckFile(var UserFile: TextFile; Size: Integer; Path: String): boolean;
var
    I, Value: Integer;
    IsCorrect: Boolean;
begin
    AssignFile(UserFile, Path);
    Reset(UserFile);
    IsCorrect := True;
    I := 0;
    while not(SeekEoLn(UserFile)) and IsCorrect do
    Begin
        Try
            Read(UserFile, Value);
        except
            IsCorrect := False;
        End;
        Inc(I);
    End;

    if I<>Size then
        IsCorrect := False;

    CloseFile(UserFile);
    CheckFile := IsCorrect;
end;

procedure TForm1.N4Click(Sender: TObject);
var
    I, Size: Integer;
    UserFile: TextFile;
    Value: Integer;
    Path: String;
begin
    Size := SpinEditMas.Value;
    Path := OpenDialog1.FileName;
    if OpenDialog1.Execute then
    Begin
        if CheckFile(UserFile, Size, Path) then
        begin
            AssignFile(UserFile, OpenDialog1.FileName);
            Reset(UserFile);
            for I := 0 to SpinEditMas.Value-1 do
                Begin
                    Read(UserFile, Value);
                    StringGrid1.Cells[i, 0] := IntToStr(Value);
                End;
            CloseFile(UserFile)
        end
        else
            MessageDlg('Данные в файле некорректны', mtError, [mbOK], 0)
    End;
    if Length(StringGrid1.Cells[0,0]) > 0 then
        Button2.Enabled := True;
end;

问题是这样的：有一个文件将数据写入实心列。名字，然后是年龄。这段代码应该从一个文件中读取整个内容并将其写入一个数组，它可以处理它，但不是按照作者想要的方式。不清楚没有文本和 0 的字符串来自哪里。如果您输入的大小不是 3，而是 5，那么它会显示您需要的内容，但带有这些空的。据我了解，它将它们从无处带走并考虑在内。功能代码如下，请帮忙！！！！！！

struct slist* getListfromFile(struct slist*& aol, string path, int size)
{
    path = getFilePath();
    fstream ListFile(path, fstream::in);
    for (int i = 0; i < size; i++)
    {
        getline(ListFile, aol[i].name);
        ListFile >> aol[i].score;
        ListFile.clear();
    }
    ListFile.close();
    return aol;
}

带文件的图片

如果该字符不是空格、不是拉丁字母或不是数字，则下面的函数应该通过删除多余的字符来编辑字符串。但是由于某种原因，即使您输入了一个俄语字母，或者任何其他不在允许集中的字符，那么这个 if 也不会输入。

string editing(string sentence)
{
    int i;
    i = 1;
    while (i <= sentence.length())
    {
        if (!('0' <= sentence[i] <= '9' || 'A' <= sentence[i] <='Z' || 'a' <= sentence[i] <= 'z' || sentence[i] == ' '))
        {
            sentence.erase(i, 1);
            i--;
        }
        i++;
    }
    return sentence;
}