Загрузка содержимого txt в ListView

Парни помогите загрузить даные с txt файла в ListView. Допустим у меня есть 5 строк и 4 столбца с записями, мне надо их загрузить в ListView. Пробовал так:
//Процедура записи списка при нажатии кнопки sbSave
procedure TForm1.sbSaveClick(Sender: TObject);
 var num,i,j: integer;s:string;

begin
 for i:=0 to LvClas.Items.Count-1 do
 begin
 S:= LvClas.Items.Item[i].Caption ;
 for j:=0 to 3 do
 S:=S+' '+LvClas.Items.Item[i].SubItems.Strings[j];
 Buf.Add(s) ;
 end;
 Buf.SaveToFile('tabl.txt');
end;

//Процедура считования списка при нажатии кнопки sbLoad
procedure TForm1.sbLoadClick(Sender: TObject);
var s,sc:string;
 i,p,j:integer;
begin
 Buf.Clear;
 LvClas.Clear;
 Buf.LoadFromFile('tabl.txt');
for i := 0 to Buf.Count-1 do

 begin
 S:=Buf.Strings[i];
 p:=pos(' ',s);
 if p>0 then
 begin
 Sc:=copy(s,1,p-1);
 LvClas.Items.Add.Caption :=sc;
 Delete(s,1,p);s:=Trim(s);
 end;
 for j:=0 to 3 do
 begin
 p:=pos(' ',s);
 if p>0 then
 begin
 Sc:=copy(s,1,p-1);
 LvClas.Items.Item[i].SubItems.Add(sc);
 Delete(s,1,p);s:=Trim(s);
 end;
 end;
 end;
end;
не работает ни запись не считования +(((
2 ответа

задача упрщается, подсказали не хватает строчки: Buf:=TStringList.Create, тока куда её вставить??


при условии что у тебя Buf внешняя переменная то при создании формы а при уничтожении формы помести тогда Buf.Free;