Edit + combobox + forcedirectories

[Konstantin_ua]

Всем привет
есть combobox в нем хранятся записи, использую forcedirectories для создания папки, и в строке пути использую записи из combobox, все вроде бы работает но когда в combobox запись заканчивается на пробел то создает папки только до этого пробела, как его убрать?
записи в combobox добавляю с помощью Edit
вот пример пути
это создало D:\Ado\data\Васек
это полный путь D:\Ado\data\Васек \11.11.11

делаю так прога зависает

    strok:=edt2.text;
     while strok[Length(strok)]=#32 do
     begin
     Delete(strok, (Length(strok)-1),1);
     edt2.Text:=strok;
     end;

убрал -1 все работает

[Stilet]

А можно увидеть сам код программы?

[Konstantin_ua]

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

А можно увидеть сам код программы?

ну если так интересно

 dir:=ExtractFilePath(Application.ExeName )+'data';
 begin
         ForceDirectories(dir+'\'+cbb2.Items[cbb2.itemIndex]+'\' +medt1.Text);  //создаем папку даже если вложеных нету
          for i:=0 to mmo2.Lines.Count-1 do
            begin
             // ShowMessage(F_add.mmo2.Lines[i]);
              if ( CopyFile( Pchar(mmo2.Lines[i]), ( Pchar(dir+'\'+cbb2.Items[cbb2.itemIndex]+'\' +medt1.Text+'\'+edt1.Text+ExtractFileName(F_add.mmo2.Lines[i])  )),False)) then
              // ShowMessage('copy' )
               else
              // ShowMessage('error'+Pchar(mmo2.Lines[i])+'   kyda    ' + dir+'\'+cbb2.Items[cbb2.itemIndex]+'\' +medt1.Text+'\'+edt1.Text+ExtractFileName(F_add.mmo2.Lines[i])  ) ;
            end;
        end;

[Аватар]

Убрать пробелы в начале и конце проще пареной репы

strok:=Trim(edt2.text);

[Konstantin_ua]

Сообщение от Аватар

Убрать пробелы в начале и конце проще пареной репы

strok:=Trim(edt2.text);

о! то что нужно