Memo1

[Alterauge]

lade über einen button einen text hoch

siehe beispiel:


Name*Vorname*Alter*Wohnort*Tel**Nr

es soll aber im Memo so aussehen:

Name
Vorname
Alter
Wohnort
Tel
Nr.

[Luckie]

Könntest du bitte deinem Beitrag einen aussagekräftigen Titelgeben?

[Uwe Raabe]

Zitat:

Zitat von Alterauge (Beitrag 1119064)

lade über einen button einen text hoch

Wie lädst du den Text hoch und wohin?

[mkinzler]

Verwende eine Stringliste mit dem Trenner '*'

[Klaus01]

.. in eine Stringlist laden als DelimitedText.
Delimiter auf '*' einstellen
StringList in das Memo übertragen.

Grüße
Klaus

[Alterauge]

der text kommt aus einem stringgrid

Delphi-Quellcode:

procedure Form1.Button1Click(Sender:TObject);
 begin
   Memo1.Lines.Clear;
   Memo1.Lines.Add(AdvStringGrid1.Cells[7,AvancedStringGrid1.Row]);
 end;

[mkinzler]

Delphi-Quellcode:

procedure Form1.Button1Click(Sender:TObject);
var
  sl: TStrings;
begin
  try
     sl := TStringList.Create;
     sl.Delimiter := '*';
     sl.DelimitedText := AdvStringGrid1.Cells[7,AvancedStringGrid1.Row];
     Memo1.Lines.Assign( sl);
  finally
    sl.free;
  end;
end;

Btw. das mit dem Ändern des Betreffs des Threads war Ernst gemeint.

[Alterauge]

danke es geht!

habe ich auch die möglichkeit textbausteine auszublenden

<fest>*test*test*test*


<fest> würde ich gerne ausblenden?

[DeddyH]

Entweder vorher aus dem String löschen oder später die Stringliste durchgehen, vergleichen und dann löschen.

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.AdvGlowButton9Click(Sender: TObject);
 var
  sl: TStrings;
begin
  try
     sl := TStringList.Create;
     sl.Delimiter := '*';
     sl.clear := '<>'; // so ????    
     sl.DelimitedText := FormReporting.Report.Cells[7,FormReporting.Report.Row];
     Memo1.Lines.Assign( sl);
  finally
    sl.free;
  end;
end;