Tlistview als String speichern/laden

[smallsmoker]

Hi,
wollte gerade die daten aus einer Tlistview übers internet verschicken und wollte einen möglichst eleganten weg gehen, dazu wollte ich meine listview in einen string umwandeln verschicken und dann wieder einlesen hier ist das ergebnis:

Delphi-Quellcode:

Type
  TListViewStringConverter = Class Helper For TListView
  private
    function GetAsString: String;
    procedure SetAsString(const Value: String);
  Public
    Property AsString : String Read GetAsString Write SetAsString;
  End;

{ TListViewStringReader }

function TListViewStringConverter.GetAsString: String;
Var
  sList,sRow : TStringList;
  i : Integer;

Begin
  sList := TStringList.Create;
  sRow := TStringList.Create;
  Try
  sList.Delimiter := '\';
  sRow.Delimiter := '#';
  For i := 0 To Items.Count-1 do Begin
    sRow.Clear;
    sRow.Add(Items[i].Caption);
    sRow.AddStrings(Items[i].SubItems);
    sList.Add(AnsiQuotedStr(sRow.DelimitedText,'"'));
  End;
  Finally
    sRow.Free;
    Result := SList.DelimitedText;
    sList.Free;
  End;
End;


procedure TListViewStringConverter.SetAsString(const Value: String);
Var
  sList,sRow : TStringList;
  i : Integer;
  item : TListItem;

Begin
  sList := TStringList.Create;
  sRow := TStringList.Create;
  Items.Clear;
  Try
  sList.Delimiter := '\';
  sList.DelimitedText := Value;
  sRow.Delimiter := '#';
  For i := 0 To sList.Count-1 do Begin
    sRow.DelimitedText := AnsiDequotedStr (sList[i],'"');
    Item := Items.Add;
    Item.Caption := sRow[0];
    sRow.Delete(0);
    Item.SubItems.Assign(sRow);
  End;
  Finally
    sRow.Free;
    sList.Free;
  End;
End;

Beispielaufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  s : String;
begin
  s := ListView1.AsString;
  ListView1.AsString := s;
end;

Die Anzahl der Spalten ist nicht relevant,
Es werden alle Zeilen (ohne Überschriften) gespeichert und geladen.

mfg smallsmoker

p.s.: Danke an alzaimar für den Code.

[smallsmoker]

leider gibt es probleme wenn leerzeichen vorkommen :/ mit "" klappt es nicht ...

edit: problem mit den leerzeichen durch StringReplace gelöst.

edit2: noch einen fehler entdeckt jetzt sollte alles klappen :)
wäre ganz froh über feedback.

[alzaimar]

Verwende 'AnsiQuotedStr', um einen String mit Gänsefüßen zu versehen und 'AnsiDequotedStr', um diese zu wieder zu entfernen. Dabei werden die Gänsefüßchen innerhalb des Textes berücksichtigt.

[smallsmoker]

AnsiQuotedStr würde nicht helfen, ich habe ja geschrieben das es nicht hilft den string in "" zu setzen.
mann muss auch die leerzeichen im string ersetzen da sie beim parsen falsch erkannt werden.

[toms]

Hallo Nick, warum nicht via Stream?

[Bernhard Geyer]

Wenn du bestimmte Zeichen als Trennzeichen ansieht mußt du auch diese Trennzeichen im eigentlichen text escapen (oft wird dies durch verdopplung des Trennzeichens gemacht).

Aber wie wäre es mit XML als Format. Damit könnte du auch später diverse ander Eigentschaften deines TreeViews streamen. Alternativ wäre auch zu versuchen die Persistenz (Streaming in DFM) zu "mißbrauchen"

[smallsmoker]

gute idee mit den doppelten trennzeichen damit diese auch im text enthalten sein können.
für mich ist diese lösung schon ideal da die listview auf der einen seite noch nicht existiert, heißt ich erzeuge einen string der gesendet wird und dann durchgeparst wird :)

[alzaimar]

Zitat:

Zitat von smallsmoker

AnsiQuotedStr würde nicht helfen, ich habe ja geschrieben das es nicht hilft den string in "" zu setzen.
mann muss auch die leerzeichen im string ersetzen da sie beim parsen falsch erkannt werden.

Nö.

Delphi-Quellcode:

Type
  TListViewStringConverter = Class Helper For TListView
  private
    function GetAsString: String;
    procedure SetAsString(const Value: String);
  Public
    Property AsString : String Read GetAsString Write SetAsString;
  End;

{ TListViewStringReader }

function TListViewStringConverter.GetAsString: String;
Var
  sList,sRow : TStringList;
  i : Integer;

Begin
  sList := TStringList.Create;
  sRow := TStringList.Create;
  Try
  sList.Delimiter := '\';
  sRow.Delimiter := '#';
  For i := 0 To Items.Count-1 do Begin
    sRow.Clear;
    sRow.Add(Items[i].Caption);
    sRow.AddStrings(Items[i].SubItems);
    sList.Add(AnsiQuotedStr(sRow.DelimitedText,'"'));
  End;
  Finally
    sRow.Free;
    Result := SList.DelimitedText;
    sList.Free;
  End;
End;


procedure TListViewStringConverter.SetAsString(const Value: String);
Var
  sList,sRow : TStringList;
  i : Integer;
  item : TListItem;

Begin
  sList := TStringList.Create;
  sRow := TStringList.Create;
  Items.Clear;
  Try
  sList.Delimiter := '\';
  sList.DelimitedText := Value;
  sRow.Delimiter := '#';
  For i := 0 To sList.Count-1 do Begin
    sRow.DelimitedText := AnsiDequotedStr (sList[i],'"');
    Item := Items.Add;
    Item.Caption := sRow[0];
    sRow.Delete(0);
    Item.SubItems.Assign(sRow);
  End;
  Finally
    sRow.Free;
    sList.Free;
  End;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
  s : String;

begin
  s := ListView1.AsString;
  ListView1.AsString := s;
end;

[smallsmoker]

da hab ich mich wohl geirrt :oops:
ihc editiere mal deinen code in den ersten post rein.
mfg smallsmoker

[SirThornberry]

Wenn es darum geht Daten über das Internet zu verschicken würde ich auf XML verzichten da es Bandbreite kostet. Auf QuotedString würde ich verzichten weil es Rechenzeit kostet. Ich würde die Daten einfach Binär verschicken. Also erst länge des nächsten Datensegments danach die Daten.

[Bernhard Geyer]

Zitat:

Zitat von SirThornberry

Wenn es darum geht Daten über das Internet zu verschicken würde ich auf XML verzichten da es Bandbreite kostet.

Einfach XML Zippen und schon ist dieses Argument entkräftet.

Zitat:

Zitat von SirThornberry

...weil es Rechenzeit kostet.

Wenn man bedenkt das ein normaler PC sich zur normalen Zeiten zu 99% Langweilt ...

[SirThornberry]

naja, xml zippen ist kein Argument. schließlich kann auch auch Binärdateien zippen und binn dann auch wieder mit noch weniger Bandbreite dabei.

[Codewalker]

Ab welcher Delphi-Version gibt es diese Class-Helper?

[DeddyH]

2005? Bei 2006 auf jeden Fall.

[Bernhard Geyer]

Zitat:

Zitat von SirThornberry

naja, xml zippen ist kein Argument. schließlich kann auch auch Binärdateien zippen und binn dann auch wieder mit noch weniger Bandbreite dabei.

Der Unterschied zwischen gezippten XML und gezippten Binärdaten ist bei weiten geringer als zwischen ungezippten Versionen.

Zitat:

Zitat von Codewalker

Ab welcher Delphi-Version gibt es diese Class-Helper?

Müsste es nicht D8 sein da sonst VCL.NET nicht funktionieren würde :gruebel:

[Codewalker]

Warum .NET? Gibt es die Class-Helper nur unter Delphi.NET? In Delphi Win32 wäre es echt sinnvoll...

[alzaimar]

Zitat:

Zitat von Codewalker

Warum .NET? Gibt es die Class-Helper nur unter Delphi.NET? In Delphi Win32 wäre es echt sinnvoll...

Die Class Helper gibt es mindestens seit D2006.

[Bernhard Geyer]

Zitat:

Zitat von Codewalker

Warum .NET? Gibt es die Class-Helper nur unter Delphi.NET? In Delphi Win32 wäre es echt sinnvoll...

Sie gibt es wegen .NET aber sie sind auch AFAIK unter Win32 verfügbar.