Ĺadny brzuch
Witam!
Mam problem bo pisze program - Koder i nie wiem jak w RichEdit wykryć i usunąć enter + spacje. Pole RichEdit ma mieć ciągły tekst bez żadnych Enterów i Spacji bo inaczej jak coś innego wpisze to wyświetla błąd Rozkodowywania (inna część programu który za to odpowiada)...
Bardzo proszę o pomoc bo to jest dla mnie waże, z góry dziękuje.
zrób pętle, która będzie sprawdzała wartość ASCII znaku - dla entera jest to 13, a dla spacji nie pamiętam :D
hehe moze jakiś przykładzik?? :)
Wiesz jak bym wiedział oco chodzi to bym nie pisał tego postu ale dla mnie jest to czarna magia więc pytam bo chce się tego wszystkiego nauczyć i do programu wykorzystać :)
na enter wymyslilem sposob nastepujacy (co prawda w c++ ale chyba na delphii nie bedzie ciezko przelozyc):
AnsiString b=""; AnsiSting a=""; for(int i=0;i<RichEdit1->Lines->Count;i++) { AnsiString a= RichEdit1->Lines->operator [](i); b+=a; } RichEdit1->Text = b;
To robi z calego tekstu jedna linie
nad spacjami sie zastanowie
//EDIT
Aha zapomnialem dodac ze WordWrap w RichEdit na false trzeba ustawic
Użytkownik nugget edytował ten post 13 marzec 2005, 22:33
var s:string begin s:=Memo1.Lines.Text; s:=StringReplace(s,' ','',[rfReplaceAll]); s:=StringReplace(s,#13,'',[rfReplaceAll]); s:=StringReplace(s,#10,'',[rfReplaceAll]); //na wypadek entera wstaionego kodem Memo1.Lines.Text:=s;
migajka sposob jest lepszy niz to co wymyslilem tak wiec dla spacji nawet nie wklejam kodu:D
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam problem bo pisze program - Koder i nie wiem jak w RichEdit wykryć i usunąć enter + spacje. Pole RichEdit ma mieć ciągły tekst bez żadnych Enterów i Spacji bo inaczej jak coś innego wpisze to wyświetla błąd Rozkodowywania (inna część programu który za to odpowiada)...
Bardzo proszę o pomoc bo to jest dla mnie waże, z góry dziękuje.
zrób pętle, która będzie sprawdzała wartość ASCII znaku - dla entera jest to 13, a dla spacji nie pamiętam :D
hehe moze jakiś przykładzik?? :)
Wiesz jak bym wiedział oco chodzi to bym nie pisał tego postu ale dla mnie jest to czarna magia więc pytam bo chce się tego wszystkiego nauczyć i do programu wykorzystać :)
na enter wymyslilem sposob nastepujacy (co prawda w c++ ale chyba na delphii nie bedzie ciezko przelozyc):
AnsiString b=""; AnsiSting a=""; for(int i=0;i<RichEdit1->Lines->Count;i++) { AnsiString a= RichEdit1->Lines->operator [](i); b+=a; } RichEdit1->Text = b;
To robi z calego tekstu jedna linie
nad spacjami sie zastanowie
//EDIT
Aha zapomnialem dodac ze WordWrap w RichEdit na false trzeba ustawic
Użytkownik nugget edytował ten post 13 marzec 2005, 22:33
var s:string begin s:=Memo1.Lines.Text; s:=StringReplace(s,' ','',[rfReplaceAll]); s:=StringReplace(s,#13,'',[rfReplaceAll]); s:=StringReplace(s,#10,'',[rfReplaceAll]); //na wypadek entera wstaionego kodem Memo1.Lines.Text:=s;
migajka sposob jest lepszy niz to co wymyslilem tak wiec dla spacji nawet nie wklejam kodu:D