ListView

[nefakt]

Всем привет, такая проблема.
Заполняю ListVIew из Edit вот так

  Item := sListView1.Items.Add;
  Item.Caption := sEdit1.Text;
  Item.SubItems.Add(sEdit2.Text);
  Item.SubItems.Add(sEdit3.Text);

Сохраняю так

 AssignFile(F, '321.txt') ;
 Rewrite(F);
 for i := 0 to sListView1.Items.Count - 1 do
   Begin
     S:= sListView1.Items.Item[i].Caption+',';
     for j := 0 to sListView1.Items.Item[i].SubItems.Count - 1 do
     S:=S+sListView1.Items.Item[i].SubItems.Strings[j]+ ',';
     SetLength(S, Length(s)-1);
     WriteLn(F,S);
     end;
     CloseFile(F);

Так вот если писать из edit добавлять в listview вот так
1 колонка / 2 колонка / 3 колонка
почта почта / Тест / тест

то при сохранение почему то 'Почта почта' смещается. То есть получается так что в файл записывается так
1 колонка / 2 колонка / 3 колонка
почта / почта / тест
а второе слово тест сохраняется в файл как четвертая колонка.
Как сделать что бы он сохранял слово даже если оно через пробел написано? Заранее спасибо.

[doktor255]

У тебя в коде разделитель запятая. А пишешь, что в файл сохраняется через слеш. Адекватные данные предоставь, ничего же не понятно. Формат, который нужно было получить, и что в итоге получилось.

[nefakt]

слеш этот я тут просто написал , так он и сохраняет через запятую как и в коде написано.

[doktor255]

Вот теперь просто напиши что получилось на самом деле, и что нужно было получить.

[nefakt]

я говорю про то что если писать слово через пробел он почему то разделяет на две колонки при сохранение как я показал выше, вот меня и интересует вопрос как можно исправить.

Вот как все сохраняет "Скопировал из файла после как сохранил"
сайт,сайт,сайт //Первая строка из трех столбцов тут все правильно а если написать через пробел то он так сохраняет например в первом столбце я написал слово сайт через пробел вот так са йт то он сохраняет так
са,йт,сайт,сайт // видишь он слово из первого столбца сохранил в два столбика в файле, а третий столбик сместился получается что третий столбик стал четвертым.

[doktor255]

Я вижу что ты говоришь. Непонятно почему ты игнорируешь просьбы. Ок, дам теорию.
Тип стринг хранит данные неизменно. Что записал в него, то и получил. А вот если используется к примеру StringList, такие проблемы могут возникнуть. То есть проблема либо в используемых типах, либо в корявости записи данных.

[nefakt]

В том то и дело что он сохраняет как я выше написал. Он у меня читает через String List , но в файл так добавляется при сохранение. А сохраняет он с помощью String
вот в var что добавлено на сохранение

 var
 I, J: Integer;
  F: TextFile;
  S:String;

[doktor255]

В самом файле запятая вместо пробела присутствует?

[nefakt]

Вот полный код на сохранение и чтение

var
  Form5: TForm5;
  I, J: Integer;
  F: TextFile;
  S:String;


procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 AssignFile(F, '321.txt') ;
 Rewrite(F);
 for i := 0 to sListView1.Items.Count - 1 do
   Begin
     S:= sListView1.Items.Item[i].Caption+',';
     for j := 0 to sListView1.Items.Item[i].SubItems.Count - 1 do
     S:=S+sListView1.Items.Item[i].SubItems.Strings[j]+ ',';
     SetLength(S, Length(s)-1);
     WriteLn(F,S);
     end;
     CloseFile(F);
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
 if FileExists('321.txt') then
 Begin
   sl:=TStringList.Create;
   sl.Delimiter:= ',';
   AssignFile(F, '321.txt');
   Reset(F);
   while not Eof(F) do
   Begin
     ReadLn(F,S);
     sl.DelimitedText:=S;
     ListItem:=sListView1.Items.Add;
     ListItem.Caption:=sl.Strings[0];
     for I := 1 to sl.Count - 1 do
     ListItem.SubItems.Add(sl.Strings[i]);
   End;
   sl.Free;
   CloseFile(F);
 End;
end;

[nefakt]

Вот вписываю в ListView

А вот как он загружает обратно