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;
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]