Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.21;
Скачать: CL | DM;

Вниз

пути к картинкам   Найти похожие ветки 

 
zxcv   (2006-05-07 22:57) [0]

Народ помогите с решением
задача такая
нужно в диалоге выбрать несколько картинок и
получить полные пути к этим картинкам в строковом типе


 
Anatoly Podgoretsky ©   (2006-05-07 23:03) [1]

Задача понятна, а вопрос какой?


 
zxcv   (2006-05-07 23:06) [2]

1 как организовать выбор в диалоге нескольких файлов
2 как получить пути к выбраным файлам


 
Zeqfreed ©   (2006-05-07 23:15) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
 i : Integer;
 s : String;
begin
 with TOpenDialog.Create(self) do begin
  try
   Options := Options + [ofAllowMultiSelect];
   if Execute then begin
    s := "";
    for i := 0 to Files.Count - 1 do
     s := s + Files[i] + #13#10;

    ShowMessage(s);
   end;
  finally
   Free;
  end;
 end;
end;


 
zxcv   (2006-05-07 23:44) [4]

спасибо
только еще вопрос
что есть #13#10 ?
как обрезать строчку с путем к файлу до
имени самого файла


 
antonn ©   (2006-05-08 07:07) [5]

zxcv   (07.05.06 23:44) [4]
что есть #13#10 ?

переаод каретки на новую строку (enter "программно")
extractfilename() - имя файла
extractfileapath() - путь до файла
extractfileext() - расширение файла



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

Текущий архив: 2006.05.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
15-1145858337
Ega23
2006-04-24 09:58
2006.05.21
С Днём рождения! 22 апреля


15-1145596344
Ega23
2006-04-21 09:12
2006.05.21
С Днём рождения! 21 апреля


2-1146557123
49 Cent
2006-05-02 12:05
2006.05.21
Можно ли изменить угол для Timage?


2-1146654488
De
2006-05-03 15:08
2006.05.21
Как грамотно написать?


15-1146209321
xayam
2006-04-28 11:28
2006.05.21
Верят ли люди в БЕСМЕРТНОСТЬ?