Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Text in nur einer Zeile (https://www.delphipraxis.net/6394-text-nur-einer-zeile.html)

BorlanDelphiUser 9. Jul 2003 13:08


Text in nur einer Zeile
 
Hallo,
folgendes Problem, ich hab einen text den in ein Memo einfüge z.B. so

Testzeile 1
Testzeile 2
Testzeile 3
Testzeile 4

nun nach einem Buttonklick soll das ganze so aussehen:

Testzeile 1 Testzeile 2 Testzeile 3 Testzeile 4

Danke euch schon mal für eure schnelle Hilfe.

Alexander 9. Jul 2003 13:13

Re: Text in nur einer Zeile
 
das sollte so gehen:
Delphi-Quellcode:
memo1.Lines.Strings[0]
Das sollte die erste Zeile sein...
Die 0 muss halt angepasst werden.

Für deine Bedürfniss muss du das halt in ner Schleife durch gehen...
Kannst dir ja für ne Schleife nochmal Lines.Count ankucken.

BorlanDelphiUser 9. Jul 2003 13:20

Re: Text in nur einer Zeile
 
super genau das mit dem Ansprechen der zeilennummer hat mir noch gefehlt, Danke.

Christian Seehase 9. Jul 2003 17:17

Re: Text in nur einer Zeile
 
Moin Alexander

statt

Delphi-Quellcode:
Memo1.Lines.Strings[...]
kann man auch einfach

Delphi-Quellcode:
Memo1.Lines[...]
schreiben.

Alexander 10. Jul 2003 08:59

Re: Text in nur einer Zeile
 
mhm stimmt. Mache das aber immer aus Gewohnheit so...
Funktionert ja beides.

Sharky 10. Jul 2003 09:45

Re: Text in nur einer Zeile
 
Hai BorlanDelphiUser,

wenn ich dich richtig verstehe möchtest Du die Zeilenumbrüche entfernen?

Dann kannst Du das so machen:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text := StringReplace (Memo1.Text,#13#10,' ',[rfReplaceAll]);
end;

BorlanDelphiUser 10. Jul 2003 12:42

Re: Text in nur einer Zeile
 
Danke an eure beiträge hab das problem mit einer kleinen schleife gelöst.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz