Hallo

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

zusammenfalten · markieren

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

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

Hallo,

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

zusammenfalten · markieren

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

Danke.

So gehts

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:

markieren

Delphi-Quellcode:

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

Leider nur in Delphi, FreePascal kennt StrictDelimiter noch nicht.