[zillius]

Подскажите как вывести из текстового файла F значения строк без первого символа каждой строки в checkListBox?

[Vladimr]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

[lmikle]

можно чуть попроще:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var   I : Integer; begin   CheckListBox1.Items.BeginUpdate;   Try     CheckListBox1.Items.Clear;     CheckListBox1.Items.LoadFromFile('C:\...\file.txt');     For I := 0 To CheckListBox1.Items.Count-1 Do       CheckListBox1.Items[i] := Copy(CheckListBox1.Items[i],2,Length(CheckListBox1.Items[i])-1);   Finally     CheckListBox1.Items.EndUpdate;   End; end;

PS. кажется, что кода больше, но тут просто добавлена небольшая защита. Блокируем обновление компонента, потом грузим данные из файла, меняем (удаляем первый символ) и в конце разблокируем обновление. Вместо удаления символа используем копирование подстроки, причина - в отличии от Delete, которая процедура, изменяющая переданную строку, Copy - функция, возвращающая результат.