Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Вопрос по TMemo и...

Автор: Volkogriz 5.12.2007, 00:39

Доброе время суток!!!
Подскажите пожалусто как избавится в первой строке от расширения!?
Вот мой код:

Код


if not OpenDialog1.Execute then exit;   
Memo1.Lines.Add(?ExtractFileName(OpenDialog1.FileName)?+ ' '+ 'TDATA'+ ' ' + ExtractFilePath(OpenDialog1.FileName)+ExtractFileName  (OpenDialog1.FileName));

Должно в страке мемо появится такая строка :
"Unit1 TDATA C:\Documents and Settings\Unit1.ddp"
А появляется такая:
"Unit1.ddp TDATA C:\Documents and Settings\Unit1.ddp"
За рание блогодарен!!!
С уважением Volkogriz!

Автор: volvo877 5.12.2007, 00:49

Код


Memo1.Lines.Add(
  ChangeFileExt(ExtractFileName(OpenDialog1.FileName), '') + ' '+ 'TDATA'+ ' ' +
  ExtractFilePath(OpenDialog1.FileName)+ExtractFileName(OpenDialog1.FileName)
);

Автор: Volkogriz 5.12.2007, 01:31

volvo877 огромное спасибо !!! smile

То что надо!!! smile

С уважением Volkogriz! smile

Добавлено через 7 минут и 31 секунду
Ещё на один вопрос ответти плиииз!!!
Как при открытии OpenDialog1 сделать так чтоб вписывались все выделенные файлы а ни один ?!
За рание блогодарен!!!
С уважением Volkogriz!

Автор: Prokter 5.12.2007, 10:28

Цитата(Volkogriz @ 4.12.2007, 23:31)

volvo877 огромное спасибо !!! smile

То что надо!!! smile

С уважением Volkogriz! smile

Добавлено @ 01:38
Ещё на один вопрос ответти плиииз!!!
Как при открытии OpenDialog1 сделать так чтоб вписывались все выделенные файлы а ни один ?!
За рание блогодарен!!!
С уважением Volkogriz!

Укажи свойство ofAllowMultiSelect=true у компонента OpenDialog1

Автор: THandle 5.12.2007, 11:20

А файлы потом бери не OpenDialog1.Files.

Автор: Volkogriz 5.12.2007, 21:59

Доброе время суток!!! smile

Спасибо всем !!!
Но проблема!!
А поточьнее можааа пожалусто!!!

Цитата(Prokter @ 5.12.2007, 10:28

)

Укажи свойство ofAllowMultiSelect=true у компонента OpenDialog1

Это я давно зделал выделяю все а вот загружается один!!! smile

За рание блогодарен!!!
С уважением Volkogriz!

Автор: VICTAR 5.12.2007, 22:14

Код


for i := 0 to pred(OpenDialog1.Files.Count) do
   OpenDialog1.Files[i] ...

Автор: gambit 6.12.2007, 10:32

Я конечно не модер, но один топик – один вопрос.

Автор: THandle 6.12.2007, 10:37

gambit, модераторам виднее.

Автор: Volkogriz 6.12.2007, 11:30

Всем спасиба!
Разабрался!!!