
17.12.2024, 21:37
|
Прохожий
|
|
Регистрация: 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;
|