procedure TImport.Button1Click(Sender: TObject);
var
  c, i,
  kol_bukv: Integer;
  sear2: TSearchRec;
  fName,
  fNameLast: string;
begin
  c := 0;
  if FindFirst(Path + '*?_user.ini', faAnyFile, sear2) = 0 then
  repeat
      with sear2 do
      if (Name <> '.') and (Name <> '..') then
      ListBox2.Items.Add(sear2.Name);
  until FindNext(sear2) <> 0 ;
  for i := 0 to ListBox2.Items.Count -1 do
  begin
    fName := ListBox2.Items[0];
    kol_bukv := Length(fName);
    fNameLast := '_user.ini';
    Label4.Caption := Copy(Delete(fName, 1, 4), Pos(Delete(fName, 1, 4), fNameLast));
  end;
 
end;

В общем то вот, ругается на

Delphi

1	Copy(Delete(fName, 1, 4), Pos(Delete(fName, 1, 4), fNameLast));

Ткните носом )

Добавлено через 4 минуты
100 раз подумай, прежде чем задавать элементарный вопрос!
Ответ:

Delphi

1 2	Delete(fName,1,4); Label4.Caption := Copy(fName, Pos(fName, fNameLast));

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.11.2013, 22:48

Ответы с готовыми решениями:

Как сделать проверку на наличие похожего имени файла и запрос нового имени файла?
При загрузке изображения присваивается имя foto.jpg. Вопрос, как сделать проверку на то что фото с...

Сделать проверку на наличие похожего имени файла и запрос нового имени файла
Пользователь задает имя для создания файла. Вопрос, как сделать проверку на наличие похожего имени...

Определение имени файла в функции ВПР
Здравствуйте уважаемые програмисты, помогите пожалуйста с решением вот какой задачи, есть каталог с...

Синтаксическая ошибка в имени файла, имени папки или в метке тома
Не знаю выбрал я подходящую тему и касается ли моя проблема Windows 8.1,но всё же. При каждой моей...

	26.11.2013, 22:48

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.11.2013, 22:48

Помогаю со студенческими работами здесь

Синтаксическая ошибка в имени файла, имени папки или метке тома
Здравствуйте. Выполняю лаб. работу в cmd, в которой есть задание связанные с командой "Copy"....

При использовании функции fgets () и вводе абсолютно правильного имени файла программа не может открыть файл
Прошу прощение за беспокойство и за глупый вопрос, но вoобщем проблема такая: Программа...

Разница в работе bat-файла при его запуске от имени простого пользователя и от имени администратора
Здравствуйте. Пытаюсь создать .bat который: создаёт папку %ProgramFiles%\MyProg и копирует туда...

Вывод на экран имени переменной(имени файла, и тд.)
Здрасти. Недалече столкнулся с проблемой: надо сравнить два файла по признаку количества...

[WinError 123] Синтаксическая ошибка в имени файла, имени папки или метке тома: '<frozen importlib._bootstrap>'
Начал изучать Django и вот моя первая проблема,гуглил как мог не нашел ничего,помогите пожалуйста!!!

Строковые функции
Мне надо изменить код так, чтобы он смог работать с числами. Вот код: Private Sub...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх