Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Дек

Загрузка из записи в listbox

Posted by micher under Delphi

Как загрузить запись(record) в listbox?

Slym



type

  TPrecinct=record

    iNumPrecinct: integer;

    countZone : integer;

    unk1 : integer;

    tagin, tagout : integer;

    unk2  : integer;

    x,y,z: single;

    xZone, yZone, zZone : single;

  end;
  THeader=packed record

    ver:byte;

    dummy:array[1..3] of byte;

    Count:word;

  end;
procedure TForm1.Button1Click(Sender: TObject);

var

  S: TFileStream;

  Head: THeader;

  i: integer;

  r : array of TPrecinct;

Begin

  if not sOpenDialog1.Execute then exit;

  slabel2.Caption:=sOpenDialog1.FileName;

  S:= TFileStream.Create(sOpenDialog1.FileName, fmOpenRead);

  try

    s.ReadBuffer(Head,SizeOf(Head));

    sLabel4.Caption := IntToStr(Head.ver);

    sLabel1.Caption := IntToStr(Head.Count);

    SetLength(r,Head.Count);

    for i:=0 to Head.Count-1 do

    begin

      s.ReadBuffer(r,SizeOf(TPrecinct));

    end;

  finally

    S.Free;

  end;
  ListBox1.Items.Clear;

  for i:=0 to Length(r)-1 do

  begin

    ListBox1.Items.Add(IntToStr(r.iNumPrecinct))

  end;