ListView

[Fahman]

Как сохранить содержимое первого столбика в ListView1?
Подскажите пожалуйста, очень нужно.

[eval]

в цикле построчно

[Shouldercannon]

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  Item: TListItem;
begin
  for i := 0 to 9 do
  begin
    Item := ListView1.Items.Add;
    Item.Caption := IntToStr(i);
    Item.SubItems.Add(IntToStr(i + 1));
    Item.SubItems.Add(IntToStr(i + 2));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;

  for i := 0 to ListView1.Items.Count - 1 do
  begin
    SL.Add(ListView1.Items.Item[i].Caption);
  end;

  SL.SaveToFile('1.txt');
  FreeAndNil(SL);
end;

[Fahman]

Сообщение от Shouldercannon

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  Item: TListItem;
begin
  for i := 0 to 9 do
  begin
    Item := ListView1.Items.Add;
    Item.Caption := IntToStr(i);
    Item.SubItems.Add(IntToStr(i + 1));
    Item.SubItems.Add(IntToStr(i + 2));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;

  for i := 0 to ListView1.Items.Count - 1 do
  begin
    SL.Add(ListView1.Items.Item[i].Caption);
  end;

  SL.SaveToFile('1.txt');
  FreeAndNil(SL);
end;

Работает. Ну нужно немного не так. Например у меня записываеться так:

Item := TListItem.Create(Country.sListView1 .Items);
Item.Caption := (acc+':'+pass);
Item.SubItems.Add(money);
Country.sListView1.Items.Insert(0);
Country.sListView1.Items.Item[0] := Item;
Item.Free;

и мне нужно сохранять в .txt текущию строку в Item.Caption := (acc+':'+pass); с именем файла Item.SubItems.Add(money);

Возможно так?

[Fahman]

SL := TStringList.Create;
SL.Add(acc+':'+pass);
SL.SaveToFile(money+'.txt');
FreeAndNil(SL);

Вот я сделал так, вроде нормально работает. Ну как сделать чтобы файл не перезаписывался?

[phomm]

SL := TStringList.Create;
 SL.LoadFromFile(money+'.txt');
 SL.Add(acc+':'+pass);
 SL.SaveToFile(money+'.txt');
 FreeAndNil(SL);

Когда Вы уже научитесь оформлять код по правилам... Поищите глазками при наборе сообщения кнопочку # в интерфейсе формы набора поста.

[Fahman]

Сообщение от phomm

SL := TStringList.Create;
 SL.LoadFromFile(money+'.txt');
 SL.Add(acc+':'+pass);
 SL.SaveToFile(money+'.txt');
 FreeAndNil(SL);

Когда Вы уже научитесь оформлять код по правилам... Поищите глазками при наборе сообщения кнопочку # в интерфейсе формы набора поста.

Работает только если файл существует. А если нет файла?

[Stilet]

if FileExists(money+'.txt') then SL.LoadFromFile(money+'.txt');

Ферштейн?

[Fahman]

SL := TStringList.Create;
if FileExists(money+'.txt') then SL.LoadFromFile(money+'.txt');
SL.Add(acc+':'+pass);
SL.SaveToFile(money+'.txt');
FreeAndNil(SL);

Работает! Спасибо всем за ответы!