Darstellung Memo Box?

[-187-]

Delphi-Quellcode:

    if zahl[i] > 0 then
      AusgabeBox.Text:=AusgabeBox.Text+','+(IntToStr(i));

Oder hab ich das Problem falsch verstanden ?


Edit:

Problem2: TPageControl

[dustz33]

Zitat:

Delphi-Quellcode:
if zahl[i] > 0 then
AusgabeBox.Text:=AusgabeBox.Text+','+(IntToStr(i)) ;
Oder hab ich das Problem falsch verstanden ?

Perfekt, das hat mein Problem gelöst! Vielen Dank an alle!

Der Hinweis mit TPageControl sieht vielversprechend aus, ich versuche gerade das Ganze umzusetzen und melde mich wenn es klappt!

[-187-]

Um dir eine weitere Methode vorzustellen hab ich noch eine Lösung für dich. Du behälst deinen alten Code und nach der Schleife fügst du diesen Code ein: (Natürlich ist die andere Lösung sinnvoller - Dient nur zur Demonstration)

AusgabeBox.Text:=StringReplace(AusgabeBox.Text, sLineBreak, ',',[rfReplaceAll, rfIgnoreCase]);

Zum PageControl gibts erstmal nicht viel zu sagen. Einfach auf die Form ziehen, die Subpages erstellen (Rechtsklick auf die Komponente) und joa, die Subpages befüllen

[himitsu]

Zitat von DeddyH:

Naja, Add wäre ja schon richtig, sonst bliebe das Memo ja leer,

Es gibt auch andere Möglichkeiten, um einem Memo neuen Text zuzuweisen.

Zitat von -187-:

Oder hab ich das Problem falsch verstanden ?

Nee.
(wenn/falls es dann irgendwann mal zu langsam wird, dann kann man es noch ein bissl optimieren)

[DeddyH]

Zitat von himitsu:

Es gibt auch andere Möglichkeiten, um einem Memo neuen Text zuzuweisen.

Und somit klinke ich mich hier mal aus, macht ja keinen Sinn.

[himitsu]

Das Schnellste wäre z.B. SelStart auf das Ende zu setzen und dann SelText den neuen Wert zu übergeben, jedenfalls wenn man Dieses unbedingt anzeigen möchte, wärend es hinzugefügt wird.

Ansonsten könnte man intern auch eine andere TStringList nutzen, den LineBreak der Stringliste auf ',' setzen und dann .Text der Stringlist an .Text des Memos übergeben.