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

made in programmersforum 10

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

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

24th
Май

Пример заполнения динамического массива

Posted by Chas under Delphi

Не получается заполнить динамический массив через while. Не знаю где и как правильно задать длину массива.

Аватар

procedure TForm1.Button1Click(Sender: TObject);

var

  s: string;

  i: Integer;

begin

  s := 'File1.txt:AS;File2.txt:AD;File3.txt:AF;File4.txt:AG;';
  while Pos(':', s) <> 0 do

  begin

    i:=High(FileList)+2;

    SetLength(FileList, i);

    FileList[i-1].sFile := Copy(s, 1, Pos(':', s) - 1); // Путь к файлу

    Delete(s, 1, Pos(':', s));

    FileList[i-1].Hash := Copy(s, 1, Pos(';', s) - 1); // Хэш-сумма файла

    Delete(s, 1, Pos(';', s) + 2);

  end;

end;