[ Sky Walker @ 10.02.2009. 00:50 ] @
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...


[Ovu poruku je menjao Sky Walker dana 10.02.2009. u 02:48 GMT+1]
[ savkic @ 10.02.2009. 06:03 ] @
> 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;


[ Sky Walker @ 10.02.2009. 06:09 ] @
To je To.
Zaista nisam znao da se ovo resava sa trim

Hvala puno na odgovoru!