ذخیره و لود ListView در یک فایل

[seyed_farid]

چگونه میتوان مقادیر موجود در یک لیست ویو دارای چند ستون را ذخیره و بازخوانی کرد؟:تشویق:

[Hadizadeh]

قبلنا من این کارو با "SaveToFileStream" و SaveToMemoryStream انجام داده بودم. الان دقیقا یادم نیست ولی سرچ کنی مطلب پیدا می کنی.

[saeid_sazegar]

میتونی به ابن کتاب مراجعه کنی ((راهنمای برنامه نویسان دلفی تالیف فرهاد نادری پور))
اونجا کد کاملش وجود داره
موفق باشی

[SYNDROME]

با سلام
می توانی مقدار هر nodeرا به همراه Levelآن در یک فایل ذخیره کنی و سپس به راحتی آن را بازیابی کنید.
موفق باشید

[kkaajjaall]

یک نمونه براتون می زارم امیدوارم متوجه بشید.برای ذخیره آن در DataBaseIf (ListView1.Items.Count > 0) Then
For i AsInteger = 0 To ListView1.Items.Count - 1
Dim cmd AsNew SqlCommand
cmd.Connection = cn
cmd.Parameters.Add("@DoctorId", SqlDbType.Int)
cmd.Parameters.Item("@DoctorId").Value = TextBox1.Text
cmd.Parameters.Add("@office", SqlDbType.NVarChar)
cmd.Parameters.Item("@office").Value = ListView1.Items.Item(i).SubItems.Item(1).Text
cmd.Parameters.Add("@activation", SqlDbType.NVarChar)
cmd.Parameters.Item("@activation").Value = ListView1.Items.Item(i).SubItems.Item(2).Text
cmd.Parameters.Add("@respon", SqlDbType.NVarChar)
cmd.Parameters.Item("@respon").Value = ListView1.Items.Item(i).SubItems.Item(3)
.cmd.CommandText = " insert into DoctorProject (DoctorId,OfficeName,ActivationDesc,Responsibility ) values (@DoctorId,@office,@activation,@respon)"
Try
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)

EndTry
Next

-----------------------------------------------------------------------
برای درج اطلاعات در ListView
If TextBox1.Text.Length = 0 Then
MessageBox.Show("ابتدا کد پزشک را وارد نمائید")
Else
Dim sb AsNew ListViewItem
sb.Text = (ListView1.Items.Count + 1).ToString()
sb.SubItems.Add(TextBox16.Text)
sb.SubItems.Add(TextBox15.Text)
sb.SubItems.Add(TextBox14.Text)
sb.SubItems.Add(TextBox13.Text)
sb.SubItems.Add(TextBox12.Text)
ListView1.Items.Add(sb)
EndIf
TextBox16.Text = ""
TextBox15.Text = ""
TextBox14.Text = ""
TextBox13.Text = ""
TextBox12.Text = ""
TextBox16.Focus()

[SYNDROME]

با سلام
کابر عزیز kkaajjaall
اگر کدهای بالا را بین Code ها بنویسی کدها خواناتر می شود.
موفق باشید

[Valadi]

اینو ببین


uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, comctrls,
StdCtrls;

type
TForm1 = class(TForm)
ListView1: TListView;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure SaveListViewToFile(AListView: TListView; sFileName: string);
procedure LoadListViewToFile(AListView: TListView; sFileName: string);
public
end;

const
Msg1 = 'File "%s" does not exist!';
Msg2 = '"%s" is not a ListView file!';

var
Form1: TForm1;

implementation

{$R *.DFM}

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');
e

[seyed_farid]

ممنون از همه دوستان.
من از این کد استفاده کردم.


procedure SaveListView(View: TListView; const FileName: string);
var
Col, Line: Integer;
f: TextFile;
begin
AssignFile(f, FileName);
Rewrite(f);
for Line := 0 to View.Items.Count-1 do
begin
Write(f, View.Items[Line].Caption);
for Col := 0 to View.Items[Line].SubItems.Count-1 do
Write(f, '|', View.Items[Line].SubItems[Col]);
WriteLn(f);
end;
CloseFile(f);
end;

procedure LoadListView(View: TListView; const FileName: string);
function SplitStr(var s: string): string;
var
i: Integer;
begin
i := Pos('|', s);
if i = 0 then
begin
SplitStr := s;
s := '';
end
else
begin
SplitStr := Copy(s, 1, i-1);
Delete(s, 1, i);
end;
end;
var
s: string;
f: TextFile;
Item: TListItem;
begin
AssignFile(f, FileName);
View.Items.Clear;
Reset(f);
while not(Eof(f)) do
begin
ReadLn(f, s);
Item := View.Items.Add;
Item.Caption := SplitStr(s);
while s <> '' do
Item.SubItems.Add(SplitStr(s));
end;
CloseFile(f);
end;