Suche TMemo-Komponente mit Zeilenlänge > 1024

[bernau]

Tach zusammen,


ich habe eine CSV-Datei, bei der die Länge einer Zeile bis zu 6000 Zeichen sein kann.

Die Original TMemo bricht den Text nach 1024 Zeichen automatisch um.

Bei TRichEdit sind es immerhin (ca.) 3500 Zeichen, die in einer Zeile angezeigt werden. Das reicht mir aber nicht.

Gibt es eine Memo-Komponente, die so einen langen Text nicht umbricht?

[TiGü]

Wäre da eine Virtual TreeView nicht besser?

[bernau]

Zitat von TiGü:

Wäre da eine Virtual TreeView nicht besser?

Ich muss ggf. den Text bearbeiten können.

[haentschman]

Imho besteht das Notepad++ auch aus einem SynEdit...oder? ...Allerdings die C++ Version.

[bernau]

Zitat von haentschman:

Imho besteht das Notepad++ auch aus einem SynEdit...oder? ...Allerdings die C++ Version.

Stimmt. An SynEdit habe ich gar nicht mehr gedacht. Ich werde es mal testen.

[Harry Stahl]

Zitat von bernau:

Zitat von haentschman:

Imho besteht das Notepad++ auch aus einem SynEdit...oder? ...Allerdings die C++ Version.

Stimmt. An SynEdit habe ich gar nicht mehr gedacht. Ich werde es mal testen.

Hallo Gerd, SynEdit geht definitiv, ich habe die Komponente auch in meinem Pascal-Editor drin.

[mschaefer]

Man könnte es auch in eine TListView einlesen

Delphi-Quellcode:

uses
  ComCtrls, Types, StrUtils;

procedure ListViewSaveToFile(ListView: TListView; const FileName: string);

  procedure AddTextToLine(var Line: string; const Text: string);
  begin
    Line := Line + Text + #9;
  end;

  procedure MoveCompletedLineToList(const Strings: TStringList; var Line: string);
  begin
    Strings.Add(System.Copy(Line, 1, Length(Line)-1));//remove trailing tab
    Line := '';
  end;

var
  Strings: TStringList;
  LatestLine: string;
  i, j: Integer;

begin
  LatestLine := '';

  Strings := TStringList.Create;
  try
    for i := 0 to ListView.Items.Count-1 do begin
      AddTextToLine(LatestLine, ListView.Items[i].Caption);
      for j := 0 to ListView.Items[i].SubItems.Count-1 do begin
        AddTextToLine(LatestLine, ListView.Items[i].SubItems[j]);
      end;
      MoveCompletedLineToList(Strings, LatestLine);
    end;
    Strings.SaveToFile(FileName, TEncoding.UTF8);
  finally
    Strings.Free;
  end;
end;

procedure ListViewLoadFromFile(ListView: TListView; const FileName: string);
var
  Strings: TStringList;
  i, j: Integer;
  Fields: TStringDynArray;
  Item: TListItem;
begin
  Strings := TStringList.Create;
  try
    Strings.LoadFromFile(FileName);
    ListView.Clear;
    for i := 0 to Strings.Count-1 do begin
      Fields := SplitString(Strings[i], #9);
      Item := ListView.Items.Add;
      Item.Caption := Fields[0];
      for j := 1 to high(Fields) do begin
        Item.SubItems.Add(Fields[j]);
      end;
    end;
  finally
    Strings.Free;
  end;
end;

[TiGü]

Zitat von bernau:

Zitat von TiGü:

Wäre da eine Virtual TreeView nicht besser?

Ich muss ggf. den Text bearbeiten können.

Wenn es eh eine CSV-Datei ist, dann kannst du doch Spalten je Trenner machen?!
Dort dann regulär per Standardeditor bearbeiten oder eigenes Edit-Control einfügen.

Oder ist wirkliche eine "Spalte" 6000 Zeichen lang?
Wenn ja, wie soll man da sinnvoll als Mensch etwas bearbeiten?

[KodeZwerg]

Hab was bei Torry gefunden aber nicht getested.
Bei Torry nach TGSMemo & TGSMemoHTMLCode v.1.0 suchen.

[bernau]

Zitat von KodeZwerg:

Hab was bei Torry gefunden aber nicht getested.
Bei Torry nach TGSMemo & TGSMemoHTMLCode v.1.0 suchen.

Danke. Schaue ich mir mal an.