-2

Мне нужно прочитать массив записей (состоит из одной строки и 6 цифр) из типизированного файла и записать в таблицу (StringGrid). В типизированном файле данные находятся каждое значение на новой строчке. В таблицу выводится какая-то каша из мусора. С индексацией всё в порядке.

procedure TMainForm.N3Click(Sender: TObject);
var
    TypeFile: File of Factory;
    I: Integer;
    IsCorrect: boolean;
    Records: AoW;
begin
    if OpenDialog1.Execute then
    begin
        SetLength(Records, 4);
        IsCorrect := True;
        AssignFile(TypeFile, OpenDialog1.FileName);
        Reset(TypeFile);
        I := 0;
        while not(Eof(TypeFile)) do
        begin
            Read(TypeFile, Records[I]);
            Inc(I);
        end;
        CloseFile(TypeFile);
    end;
    for I := 1 to SpinEditOfWorkers.Value do
    begin
        MainStringGrid.Cells[1, I] := Records[I-1].Name;
        MainStringGrid.Cells[2, I] := IntToStr(Records[I-1].DetailsOnMonday);
        MainStringGrid.Cells[3, I] := IntToStr(Records[I-1].DetailsOnTuesday);
        MainStringGrid.Cells[4, I] := IntToStr(Records[I-1].DetailsOnWednesday);
        MainStringGrid.Cells[5, I] := IntToStr(Records[I-1].DetailsOnThursday);
        MainStringGrid.Cells[6, I] := IntToStr(Records[I-1].DetailsOnFriday);
        MainStringGrid.Cells[7, I] := IntToStr(Records[I-1].DetailsOnSaturday);
    end;
end;
11
  • 2
    вы уверены что "типизированный файл" и "текстовый файл каждое значение на новой строчке" это одно и то же?
    – teran
    14 янв 2021 в 21:55
  • 3
    TStringList для загрузки текстового файла, и читайте по строкам
    – teran
    14 янв 2021 в 22:01
  • TStringList нет в делфи
    – Black Man
    15 янв 2021 в 10:04
  • он там со времен диназвров есть, ищите лучше
    – teran
    15 янв 2021 в 10:10
  • 3
    проблема в том, что вы сами не знаете о чем ваш вопрос. Типизированный файл и текстовый файл по строкам это разные вещи. Вам сказано как прочитать текстовый и какой класс для этого использовать. Если вы юзаете не версию делфи из прошлого тысячелетия, то TStringList там имеется.
    – teran
    15 янв 2021 в 10:20

1 ответ 1

2

Файл с данными надо читать зеркально относительно того, как эти данные в файл писались.

В текстовом файле данные находятся каждое значение на новой строчке.

Это не похоже на File of Record. Читайте каждую строчку отдельно.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.