Listview CommaText mit Leerzeichen

[ebber]

Hallo

ich habe vor einiger Zeit mal diesen Code gefunden um in ein Listview etwas einzutragen.

Delphi-Quellcode:

procedure TForm3.ListViewAddItm(ListView: TListView; const ersteSpalte,
          Rest_CommaText: String; Checked: Boolean = true);
var
  ListItem: TListItem;

begin
  with ListView do
    begin
      ListItem := Items.Add;
      ListItem.Caption := ersteSpalte;
      ListItem.SubItems.CommaText := Rest_CommaText;
      If Checkboxes then
        Items.Item[Items.Count - 1].Checked := Checked;
    end;
end;

Wenn jetzt aber ein Leerzeichen in einem der Comma Texts ist dann geht es automatisch eine Spalte weiter. Kann man das irgenwie verhindern ?

MfG

[mkinzler]

Das ist bei der Standard-Strngliste so. Du könntest die Leerzeichen ersetzen oder die Untereinträge anders erzeugen (Explode)

[marabu]

Hallo,

wenn der Text (CommaText) zuerst kompatibel gemacht wird, dann kann der Code beibehalten werden:

Delphi-Quellcode:

function CommaText(const text: string; delimiter: Char = ','): string;
var
  s: TStrings;
begin
  s := TStringList.Create;
  try
    Explode(text, delimiter, s);
    Result := s.CommaText;
  finally
    s.Free;
  end;
end;

Die verwendete Funktion Explode() findest du dort: klick

Grüße vom marabu

[ebber]

Danke. :thumb:

So gehts

[CCRDude]

Ansonsten gibts ja noch TStringList.StrictDelimiter, mit dem man auch dafür sorgen kann, daß eine TStringList wirklich nur das vorgegebene Trennzeichen verwendet. Also, grob geraten:

Delphi-Quellcode:

ListItem.SubItems.StrictDelimiter := true;
ListItem.SubItems.Delimiter := ';';
ListItem.SubItems.DelimitedText := Rest_CommaText;

Leider nur in Delphi, FreePascal kennt StrictDelimiter noch nicht.