[Electronic_Arts]

Можноли сделать ValueListEditor1 с тримя столбиками
Мне нужен компонент в котором можно создат 3 столбика

ЗАРАНИЯ СПОСИБО ЗА ПОМОЩЬ

[Decoding]

ValueListEditor с тримя столбиками сделать нельзя... Можешь попробовать ListView с ViewStyle=wsReport (столбцы создаются в Columns)

[Electronic_Arts]

Спосибо посмотрим что можно сделать

[Electronic_Arts]

А как в ListView нажая на Button1 довавить EDIT1 text на 1 столбик EDIT2 text на 2 столбик a EDIT3 text на 3 столбик
Edit2 добавляется на 2 столбик а другие нет
Как это зделать
зарания спосибо

[Electronic_Arts]

А что сделать с этим?

[Decoding]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  li: TListItem;
begin
   li := ListView1.Items.Add;
   li.Caption := Edit1.Text;      // Добавить в первый столбец
   li.SubItems.Add( Edit2.Text ); // Добавить во второй столбец
   li.SubItems.Add( Edit3.Text ); // Добавить в третий столбец
end;

[Electronic_Arts]

Самый последний вопрос
ListView
li.SubItems.savetofile('electronic_arts.txt'); сохраняет но не читает. КАК ЧИТАТЬ?
2 и 3 стольбики сохраняются а 1 нет. КАК ЗДЕЛАТЬ?

[Decoding]

Такой вариант подойдет?

Сохранить

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream;
begin
   FileStream := TFileStream.Create( 'C:\ListView.sav', fmCreate );
   FileStream.WriteComponent( ListView1 );
   FileStream.Free;
end;

Прочитать

Код:

 
procedure TForm1.Button3Click(Sender: TObject);
var
  FileStream: TFileStream;
begin
   if FileExists( 'C:\ListView.sav' ) then
   begin
      FileStream := TFileStream.Create( 'C:\ListView.sav', fmOpenRead );
      ListView1 := FileStream.ReadComponent( ListView1 ) as TListView;
      FileStream.Free;
   end;
end;

[Electronic_Arts]

ОГРОМНОЕ СПОСИБО