Удалить лишние пробелы из строки Edit

@Ken3601 · Регистрация: 31.10.2012

Author24 — интернет-сервис помощи студентам

надо удалить лишние пробелы из строки Edit. Вот часть кода помогите исправить

Delphi

//тут  добавляются пробелы
for i:= 1 to StrToInt(E2) do
    if (RadioButton1.Checked) and (Edit1.Text <> p) then
       Edit4.Text:= p + Edit4.Text
      else
       Edit4.Text:= Edit4.Text + p;
 
//а тут удалить (Выдает ошибку)
   for i:= 1 to Length(Edit1.Text) do
      if IntToStr(Length(Edit4.Text)) > Edit2.Text then
   Edit4.Text:= IntToStr(Length(Edit1.Text)) - Edit4.Text;

@barbudo59 · 28.03.2013, 15:15

Сообщение от Ken3601

if IntToStr(Length(Edit4.Text)) > Edit2.Text then
Edit4.Text:= IntToStr(Length(Edit1.Text)) - Edit4.Text;

Накручено, напишите словами, что Вы хотели получить.

@Санек25 · 28.03.2013, 15:16

конкретнее опишите. Какую ошибку выдает? Удалить надо все пробелы в строке?

@Cyborg Drone · 28.03.2013, 18:19

Сообщение от barbudo59

Удалить лишние пробелы из строки Edit

Так что ль?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s := Edit1.Text;
while Pos('  ', s) > 0 do Delete(s, Pos('  ', s), 1);
Edit1.Text := s;
end;

Добавлено через 22 минуты
Даже, наверное, перед строкой 6

Delphi

1 2	if s[1] = ' ' then Delete(s, 1, 1); if s[length(s)] = ' ' then Delete(s, length(s), 1);

@cotseec · 28.03.2013, 18:42

как отличить нужный пробел от лишнего?

Delphi

1
2

   Edit1.Text:=Trim( Edit1.Text);// удалит пробелы в начале и конце строки
   Edit1.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll]);// удалит все пробелы из строки

@Ken3601 · 29.03.2013, 09:56 **[ТС]**

Задача состоит в том что я например ввожу числа в поле Edit1 и задаю ему размер в Edit2 и вот если размер поля Edit1 меньше чем я задал в поле Edit2 то он дополняет пробелами слева и нужно сделать так что бы он вычитал количество пробелов равному размеру поля Edit1

Добавлено через 4 минуты

Сообщение от barbudo59

Накручено, напишите словами, что Вы хотели получить.

Тут я хотел удалить количество пробелов равному полю Edit1

Добавлено через 4 минуты

Сообщение от cotseec

как отличить нужный пробел от лишнего?

Delphi

1
2

   Edit1.Text:=Trim( Edit1.Text);// удалит пробелы в начале и конце строки
   Edit1.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll]);// удалит все пробелы из строки

Если обобщить все то получится так: Нужно что бы количество символов в выводимой строке не превышало размер который я ей задам(в отдельном поле)

@barbudo59 · 29.03.2013, 13:47

Сообщение от Ken3601

Если обобщить все то получится так:

1) Edit1.Text:=Trim(Edit1.Text); // удалит все пробелы в начале и конце строки, сюда же - TrimLeft, TrimRight
2) Edit1.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll]);// удалит все пробелы из строки
3) s := Edit1.Text; Delete(s, a, b); Edit1.Text := s; // удалит b символов, начиная с a
4) Edit1.Text := Copy(Edit1.Text, a, b); // удалит всё кроме скопированного текста

@Ken3601 · 29.03.2013, 14:08 **[ТС]**

Ооо спасибо большое) Очень благодарен!

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	28.03.2013, 15:15	2
	Сообщение от Ken3601 if IntToStr(Length(Edit4.Text)) > Edit2.Text then Edit4.Text:= IntToStr(Length(Edit1.Text)) - Edit4.Text; Накручено, напишите словами, что Вы хотели получить. 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	28.03.2013, 15:16	3
	конкретнее опишите. Какую ошибку выдает? Удалить надо все пробелы в строке? 0

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	29.03.2013, 13:47	7
	Сообщение от Ken3601 Если обобщить все то получится так: 1) Edit1.Text:=Trim(Edit1.Text); // удалит все пробелы в начале и конце строки, сюда же - TrimLeft, TrimRight 2) Edit1.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll]);// удалит все пробелы из строки 3) s := Edit1.Text; Delete(s, a, b); Edit1.Text := s; // удалит b символов, начиная с a 4) Edit1.Text := Copy(Edit1.Text, a, b); // удалит всё кроме скопированного текста 1

@Ken3601 0 / 0 / 0 Регистрация: 31.10.2012 Сообщений: 29
	29.03.2013, 14:08 [ТС]	8
	Ооо спасибо большое) Очень благодарен! 0