Показать сообщение отдельно
  #2  
Старый 17.12.2024, 21:37
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 46
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Код:
var f:TextFile;
s:string;

begin
 AssignFile(F, 'имя файла.txt');
 reset (f);
    CheckListBox1.Items.Clear; //очищаем для начала

 while not eof(f) do
  begin
    readln(f,s);  //читаем построчто из текстового файла во временную переменнную
    delete(s,1,1); //удаляем первый символ
    CheckListBox1.Items.Add(s);
  end;

 CloseFile(f);
end;
Ответить с цитированием