hvordan kan jeg load en *.txt fil ind i en listview hvor jeg har sat viewstyle til vsReport. og har 4 columns?
Her har du både en load og en save funktion:
<pre>procedure TForm1.LoadButtonClick(Sender: TObject);
var
List: TStringList;
NewItem: TListItem;
I: Integer;
begin
NewItem := nil;
ListView1.Items.Clear;
List := TStringList.Create;
try
List.LoadFromFile('C:\\Fil.txt');
for I := 0 to List.Count - 1 do
if List [I][1] = #9 then
NewItem.SubItems.Add(Trim(List[I]))
else
begin
NewItem := ListView1.Items.Add;
NewItem.Caption := List[I];
end;
finally
List.Free;
end;
end;
procedure TForm1.SaveButtonClick(Sender: TObject);
var
List: TStringList;
I, J: Integer;
begin
List := TStringList.Create;
try
for I := 0 to ListView1.Items.Count - 1 do
begin
List.Add(ListView1.Items[I].Caption);
for J := 0 to ListView1.Items[I].SubItems.Count - 1 do
List.Add(#9 + ListView1.Items[I].SubItems[J]);
end;
List.SaveToFile('C:\\Fil.txt');
finally
List.Free;
end;
end;</pre>
#9 er en tab så din fil vil komme til at se sådan ud:
<pre>Item 1
SubItem 1.1
SubItem 1.2
SubItem 1.3
Item 2
SubItem 2.1
SubItem 2.2
SubItem 2.3
Item 3
SubItem 3.1
SubItem 3.2
SubItem 3.3
Item 4
SubItem 4.1
SubItem 4.2
SubItem 4.3
Item 5
SubItem 5.1
SubItem 5.2
SubItem 5.3
Item 6
SubItem 6.1
SubItem 6.2
SubItem 6.3
Item 7
SubItem 7.1
SubItem 7.2
SubItem 7.3
Item 8
SubItem 8.1
SubItem 8.2
SubItem 8.3</pre>
Emil Melgaard
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk