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;

[SirThornberry]

@Alterauge: Bitte ändere (wie auch bereits vom Moderator Luckie gewünscht wurde) den Titel des Themas. Der jetzige Titel lässt kaum erahnen um was es in dem Thema geht. Und Leute die später das gleiche Problem haben finden die Lösung über die Suchfunktion bei diesem Titel nur mit sehr viel Glück. :)

[mkinzler]

Nein.

Delphi-Quellcode:

sl.DelimitedText := StringReplace(FormReporting.Report.Cells[7,FormReporting.Report.Row], '<fest>*', '', [rfReplaceAll]);

Und der Betreff sagt immer noch nichts aus. Das wurde dir jetzt schon 3 mal von 3 Moderatoren gesagt, dass du das ändern sollst!

Das gilt auch für deine anderen Fragen:
http://www.delphipraxis.net/160045-connectdialog1.html
http://www.delphipraxis.net/160224-s...hi-2010-a.html
http://www.delphipraxis.net/162440-tadvstringgrid.html

[Luckie]

Und falls du nicht weißt, wie es geht, dann frag doch einfach. Aber hier noch mal: Ersten Beitrag editieren, auf "Erweitert" klicken und dann kannst du den Titel des Threads ändern.