Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

← →
Hollander   (2002-08-26 00:48) [4]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c