Какой то гюк

[bulldog5293]

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

procedure TForm1.SaveListViewToFile(AListView: TListView; sFileName: string);
var
  idxItem, idxSub, IdxImage: Integer;
  F: TFileStream;
  pText: PChar;
  sText: string;
  W, ItemCount, SubCount: Word;
  MySignature: array [0..2] of Char;
begin
  //Initialization
  with AListView do
  begin
    ItemCount := 0;
    SubCount  := 0;
    //****
    MySignature := 'LVF';
    //  ListViewFile
    F := TFileStream.Create(sFileName, fmCreate or fmOpenWrite);
    F.Write(MySignature, SizeOf(MySignature));

    if Items.Count = 0 then
      // List is empty
      ItemCount := 0
    else
      ItemCount := Items.Count;
    F.Write(ItemCount, SizeOf(ItemCount));

    if Items.Count > 0 then
    begin
      for idxItem := 1 to ItemCount do
      begin
        with Items[idxItem - 1] do
        begin
          //Save subitems count
          if SubItems.Count = 0 then
            SubCount := 0
          else
            SubCount := Subitems.Count;
          F.Write(SubCount, SizeOf(SubCount));
          //Save ImageIndex
          IdxImage := ImageIndex;
          F.Write(IdxImage, SizeOf(IdxImage));
          //Save Caption
          sText := Caption;
          w     := Length(sText);
          pText := StrAlloc(Length(sText) + 1);
          StrPLCopy(pText, sText, Length(sText));
          F.Write(w, SizeOf(w));
          F.Write(pText^, w);
          StrDispose(pText);
          if SubCount > 0 then
          begin
            for idxSub := 0 to SubItems.Count - 1 do
            begin
              //Save Item's subitems
              sText := SubItems[idxSub];
              w     := Length(sText);
              pText := StrAlloc(Length(sText) + 1);
              StrPLCopy(pText, sText, Length(sText));
              F.Write(w, SizeOf(w));
              F.Write(pText^, w);
              StrDispose(pText);
            end;
          end;
        end;
      end;
    end;
    F.Free;
  end;
end;



procedure TForm1.LoadListViewToFile(AListView: TListView; sFileName: string);
var
  F: TFileStream;
  IdxItem, IdxSubItem, IdxImage: Integer;
  W, ItemCount, SubCount: Word;
  pText: PChar;
  PTemp: PChar;
  MySignature: array [0..2] of Char;
  sExeName: string;
begin
  with AListView do
  begin
    ItemCount := 0;
    SubCount  := 0;

    sExeName := ExtractFileName(sFileName);

    if not FileExists(sFileName) then
    begin
      MessageBox(Handle, PChar(Format(Msg1, [sExeName])), 'I/O Error', MB_ICONERROR);
      Exit;
    end;

    F := TFileStream.Create(sFileName, fmOpenRead);
    F.Read(MySignature, SizeOf(MySignature));

    if MySignature <> 'LVF' then
    begin
      MessageBox(Handle, PChar(Format(Msg2, [sExeName])), 'I/O Error', MB_ICONERROR);
      Exit;
    end;

    F.Read(ItemCount, SizeOf(ItemCount));
    Items.Clear;

    for idxItem := 1 to ItemCount do
    begin
      with Items.Add do
      begin
        //Read imageindex
        F.Read(SubCount, SizeOf(SubCount));
        //Read imageindex
        F.Read(IdxImage, SizeOf(IdxImage));
        ImageIndex := IdxImage;
        //Read the Caption
        F.Read(w, SizeOf(w));
        pText := StrAlloc(w + 1);
        pTemp := StrAlloc(w + 1);
        F.Read(pTemp^, W);
        StrLCopy(pText, pTemp, W);
        Caption := StrPas(pText);
        StrDispose(pTemp);
        StrDispose(pText);
        if SubCount > 0 then
        begin
          for idxSubItem := 1 to SubCount do
          begin
            F.Read(w, SizeOf(w));
            pText := StrAlloc(w + 1);
            pTemp := StrAlloc(w + 1);
            F.Read(pTemp^, W);
            StrLCopy(pText, pTemp, W);
            Items[idxItem - 1].SubItems.Add(StrPas(pText));
            StrDispose(pTemp);
            StrDispose(pText);
          end;
        end;
      end;
    end;

    F.Free;
  end;
end;

// Example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Save Items and Clear the ListView
  SaveListViewToFile(ListView1, 'MyListView.sav');
  ListView1.Items.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Load Items
  LoadListViewToFile(ListView1, 'MyListView.sav');
end;

[ex.cluz]

А как он "не так" сохраняет? Поподробнее.

[bulldog5293]

к примеру пишу
http://www.programmersforum.ru
bulldog5293
password
сохраняю, потом загружаю назад и получаю
http://www.prog
bulldoutton
passdout

[ex.cluz]

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

[bulldog5293]

отладку по шагам это типа то что высвечивается внизу дельфи во время запуска проекта?
Кстати попробывал 123456789 получил 12345butt

Народ ну скажите что не так?

[ex.cluz]

Там мусор из оперативки, вроде, лезет. Надо операции с указателями смотреть.

Кстати, не пробовали имя для файла, куда происходит сохранение, целиком (вместе с путем) задавать?
У меня такой глюк под ХР был. Если имя файла короткое - прога писала в него много мусора. Почему это происходило так и не разобрался.

[bulldog5293]

длинное имя тоже пробывал, он сохраняет короткие данные правельно к примеру1\2\3, а с длинными данными касяк, а указатели где смотреть?

[ex.cluz]

указатели где смотреть?

В коде

Завтра на свежую голову посмотрю (если до этого никто не поможет).

[bulldog5293]

хорошё, буду ждать

[ZuBy]

я сохранение делаю так:

procedure SaveListView(list: TListView; fname: string);
var
  ini: TMemIniFile; // uses IniFiles
  cnt, subcnt: integer;
  i, j: integer;
begin
  cnt := list.Items.Count;
  if cnt = 0 then exit;
  subcnt := list.Columns.Count;
  ini := TMemIniFile.Create(fname);
  try
    ini.WriteInteger('count', 'value', cnt - 1);
    for i := 0 to cnt - 1 do
    begin
      ini.WriteString('item' + inttostr(i), 'caption', list.Items[i].Caption);
      for j := 0 to subcnt - 2 do
      begin
        ini.WriteString('item' + inttostr(i), 'subitem' + inttostr(j), list.Items[i].SubItems[j]);
      end;
    end;
    ini.UpdateFile;
  finally
    ini.Free;
  end;
end;

а чтение так:

procedure ReadToListView(list: TListView; fname: string);
var
  ini: TMemIniFile; // uses IniFiles
  cnt, subcnt: integer;
  i, j: integer;
begin
  ini := TMemIniFile.Create(fname);
  try
    cnt := ini.ReadInteger('count', 'items', 0);
    subcnt := ini.ReadInteger('count', 'columns', 0);
    if (cnt > 0) then
    begin
      for i := 0 to cnt do
      begin
        list.Items.Add.Caption := ini.ReadString('item' + inttostr(i), 'caption', '');
        for j := 0 to subcnt - 1 do
        begin
          list.Items[i].SubItems.Add(ini.ReadString('item' + inttostr(i),
            'subitem' + inttostr(j), ''));
        end;
      end;
    end;
  finally
    ini.Free;
  end;
end;

сорс