Edit без пробелов

[glebast]

Привет ребята!

В общем у меня возникла такая проблемка - нужно чтоб в edit1 не было пробелов. Т.е. если я напишу там какие-либо символы и там будут содержаться пробелы, то пробелы нужно удалить.

Достаточно будет того, чтобы пробелы удалялись с конца слова.

[Hacker19_90]

Edit1.Text := TrimRight(Edit1.Text); //удалит пробелы справа (с конца)
Edit1.Text := TrimLeft(Edit1.Text); //Удалит пробелы слева
Edit1.Text := Trim(Edit1.Text); //с обеих сторон
while pos(' ',Edit1.Text) <> 0 do                       //
begin
    Delete (Edit1.Text, pos(' ',Edit1.Text), 1);      //Удалить пробелы совсем
end;                                                            //

[glebast]

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

Edit1.Text := TrimRight(Edit1.Text); //удалит пробелы справа (с конца)
Edit1.Text := TrimLeft(Edit1.Text); //Удалит пробелы слева
Edit1.Text := Trim(Edit1.Text); //с обеих сторон
while pos(' ',Edit1.Text) <> 0 do                       //
begin
    Delete (Edit1.Text, pos(' ',Edit1.Text), 1);      //Удалить пробелы совсем
end;                                                            //

а pos это что?

[Hacker19_90]

а pos это что?

Функция Pos находит позицию одной строки Needle в другой строке HayStack.

Если строка не найдена, возвращается 0.

Поиск чувствителен к регистру.
(с) http://www.delphisources.ru/pages/fa...s/Pos.php.html

[glebast]

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

Функция Pos находит позицию одной строки Needle в другой строке HayStack.

Если строка не найдена, возвращается 0.

Поиск чувствителен к регистру.
(с) http://www.delphisources.ru/pages/fa...s/Pos.php.html

Просто ошибку мне выдает:

[Error] Unit1.pas(92): Constant object cannot be passed as var parameter

[Hacker19_90]

ну ка покажите чё вы там на кодили

[glebast]

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

ну ка покажите чё вы там на кодили

procedure TForm1.Button1Click(Sender: TObject);
const kCycleMax = 100;
function valid(s:string):boolean;
var
I:integer;
begin
for i:=0 to memo1.lines.count-1 do
if memo1.lines.strings[i]=s then begin
result:=false;
exit;
end;
result:=true;
end;

var isValid : boolean; s:string; kCycle : integer;

begin
Edit1.Text := Clipboard.AsText;
randomize;
memo1.Clear;

ip:=edit3.Text;
memo1.Lines.Add(ip);

SL1:=TStringList.Create;
SL1.LoadFromFile('data/google/0.txt');
Memo1.Lines.AddStrings(SL1);

per:=StrToIntDef(Edit2.Text, -42);
zad:=edit1.Text;

while pos(' ',Edit1.Text) <> 0 do
begin
    Delete (Edit1.Text, pos(' ',Edit1.Text), 1);
end;

if edit1.Text=zad then
begin
SL1:=TStringList.Create;
SL1.LoadFromFile('data/web/'+zad+'/1.txt');

for i:=1 to per do begin
  repeat
     s:=SL1.Strings[random(sl1.count)];
     isValid := valid(s);
     if  isValid then Memo1.Lines.add(s);
  until isValid;
end;
end;


SL1:=TStringList.Create;
SL1.LoadFromFile('data/google/0.txt');
Memo1.Lines.AddStrings(SL1);
begin
google:=random(45)+1;
google1:=inttostr(google);
SL1:=TStringList.Create;
SL1.LoadFromFile('data/google/'+google1+'.txt');
Memo1.Lines.AddStrings(SL1);
end;

Memo1.SelectAll;
Memo1.CopyToClipboard;

end;

[ACE Valery]

glebast, код оформляем тегом [code], ок?

[DiemonStar]

А не проще ли сделать фильтр вводимых в Edit символов, чем заморачиваться с парсингом?

[Serge_Bliznykov]

s := Edit1.Text;
while pos(' ',s) > 0 do
begin
    Delete (s, pos(' ',s), 1);
end;
Edit1.Text := s;