Izbacivanje |oznake kraj reda-nova linija| iz ListBox-a?

Odgovori Nova tema

2 odgovora
3.206 pregleda

Izbacivanje |oznake kraj reda-nova linija| iz ListBox-a? 10.02.2009. u 01:50 · pre 215 meseci #1

Iz nekog razloga mi se na na kraju svake linije u ListBox-u vide dva crna hijeroglifa :)
Izgleda da je upisao i karaktere za kraj reda i novu liniju.

Kako najlakse iz svake linije da izbacim ove znakove?

-----------------------
nadjoh sada neki primer...

Code:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
aStr: String;
begin
aStr := Listbox1.Items.Text;
repeat // this should take away all CR/LF
if aStr[Length(aStr)] in [#13, #10] then
  SetLength(aStr, Length(aStr)-1) else
  Break
  until Length(aStr) < 1;
Listbox1.Items.Text := aStr;
end;

ovaj kod mi otklanja oznaku za novi red i liniju, ali mi se lista sada udvostrucila. prva polovina sada sadrzi prazna polja...

Re: Izbacivanje |oznake kraj reda-nova linija| iz ListBox-a? 10.02.2009. u 07:03 · pre 215 meseci #2

> Iz nekog razloga mi se na na kraju svake linije u ListBox-u vide dva crna hijeroglifa :)
> Izgleda da je upisao i karaktere za kraj reda i novu liniju.

ListBox to ne radi sam, ako postoje znači da si ih ti stavio prilikom dodavanja.

Kako najlakse iz svake linije da izbacim ove znakove?

Code:

var
  i: Integer;
begin
  for i := 0 to ListBox.Items.Count - 1 do
    ListBox.Items[i] := Trim(ListBox.Items[i]);
end;

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Izbacivanje |oznake kraj reda-nova linija| iz ListBox-a? 10.02.2009. u 07:09 · pre 215 meseci #3

To je To.
Zaista nisam znao da se ovo resava sa trim

Hvala puno na odgovoru!

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme