Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2012, 20:58   #1
ZverBlin
Пользователь
 
Регистрация: 08.08.2011
Сообщений: 10
По умолчанию Обрезать 4 последних знака в Edit

Есть код
Код:
Edit5.text:=(listbox1.Items.Strings[ListBox1.ItemIndex]);
Он выводит выделенное поле listbox в edit
В listbox оно выглядит так блабла123блабла.txt
Ну и конечно при нажатии на него, в Edit появляется блабла123блабла.txt
Как обрезать всегда .txt?
Или каким образом показывать в Listbox без расширения файла
Вот код
Код:
var
F: TSearchRec;
begin
FindFirst('C:\Documents and Settings\...\'+'*.txt', faHidden+ faSysFile, F);
begin
Listbox1.Items.add(F.Name);
while FindNext(F) = 0 do Listbox1.Items.add( F.Name);
end;
FindClose(F);
end;
ZverBlin вне форума Ответить с цитированием
Старый 23.03.2012, 21:06   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Код:
Edit5.text:=copy(listbox1.Items.Strings[ListBox1.ItemIndex], 1, pos('.',listbox1.Items.Strings[ListBox1.ItemIndex]));
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 23.03.2012, 21:19   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

На случай если еще точки в тексте возможны, то
Код:
if (Length(s)>=4) and (AnsiUpperCase(Copy(s,Length(s)-3,4))='.TXT') then s:=Copy(s,1,Length(s)-4);
Убрать любое расширение
Код:
s:=Copy(s,1,Length(s)-Length(ExtractFileExt(s)));
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.03.2012, 21:53   #4
ZverBlin
Пользователь
 
Регистрация: 08.08.2011
Сообщений: 10
По умолчанию

Переменная var?
Куда пихать?
Код:
s:=Copy(s,1,Length(s)-Length(ExtractFileExt(s)));
ZverBlin вне форума Ответить с цитированием
Старый 23.03.2012, 21:59   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Куда пихать?
Вопроса не понял. В s (String) анализируемая строка, подставь свою, Copy возвращает String, куда надо туда и пихай
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.03.2012, 21:59   #6
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

пффф
ну вот так
Код:
Edit5.text:=Copy(listbox1.Items.Strings[ListBox1.ItemIndex],1,Length(listbox1.Items.Strings[ListBox1.ItemIndex])-Length(ExtractFileExt(listbox1.Items.Strings[ListBox1.ItemIndex])));
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 23.03.2012, 22:42   #7
digital-stream
Пользователь
 
Регистрация: 03.05.2011
Сообщений: 81
Радость

var
F: TSearchRec;
begin
FindFirst('C:\Documents and Settings\...\'+'*.txt', faHidden+ faSysFile, F);
begin
Listbox1.Items.add(ExtractFileName( F.Name));
while FindNext(F) = 0 do Listbox1.Items.add( F.Name);
end;
FindClose(F);
end;
digital-stream вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
httppost и отображение знака & как знака? maloy_ya Работа с сетью в Delphi 4 12.03.2012 20:47
Как обрезать переменную? noNames PHP 1 05.01.2012 14:08
обрезать фото SkrudjMakdak JavaScript, Ajax 4 09.06.2011 16:04
Поиск нужного знака в строковом поле Edit vmilyoshin Помощь студентам 1 24.01.2011 08:40
Обрезать фото Cpluser Общие вопросы .NET 5 15.04.2010 12:58