[zillius]

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

[Vladimr]

Код:

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]

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

Код:

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 - функция, возвращающая результат.