Edit проблема с пробелами

← →
Hollander © (2002-08-25 04:29) [0]

Доброго времени,
У меня такая проблема. Считываю имя файла mp3 tags в отдельные TEdit. В некоторых все хорошо, а где-то после слова остаётся много пробелов. Подскажите, как их убрать.

← →
Dm9 (2002-08-25 05:30) [1]

Edit1.Text := Trim (Edit1.Text);

← →
Kolya © (2002-08-25 05:39) [2]

var i, ii:integer; s: string; begin s:= Edit1.Text; for i:= length(s) downto 1 do begin if s[i] <> " " then begin Edit1.Clear; for ii:= 0 to i do Edit1.Text:= Edit1.Text + s[ii]; Break; end; end; end;

Вот мое решение. Вроде работает. Может мастера напишут код получше с использованием функцией Pos, но я способен только на это...

← →
Kolya © (2002-08-25 05:40) [3]

Пока я писал эту белеберду умные люди дали тебе умный ответ :)

Большое спасибо!!!

Edit проблема с пробелами Найти похожие ветки