перебор файлов - Общие вопросы Delphi - Страница 2

Stilet · 31.03.2009, 14:19

А я бы так сделал. На мой взгляд так оптимальнее:

Код:

var k,s:string;i:integer;
begin
s:='D:\Install\For WEB\SOFT\Antenna Web Design Studio v2.7.0.130\crack.exe';
i:=length(s);while (i>1) and (not (s[i] in ['\'])) do begin k:=s[i]+k;dec(i); end;
caption:=k;
end;

Ralf_ru · 31.03.2009, 14:23

Всем огромное СПАСИБО за помощь и терпение...

31.03.2009, 14:19	#11
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	А я бы так сделал. На мой взгляд так оптимальнее: Код: `var k,s:string;i:integer; begin s:='D:\Install\For WEB\SOFT\Antenna Web Design Studio v2.7.0.130\crack.exe'; i:=length(s);while (i>1) and (not (s[i] in ['\'])) do begin k:=s[i]+k;dec(i); end; caption:=k; end;` I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
перебор чисел (pascal)	mozdok15rus	Помощь студентам	7	19.03.2009 17:54
Перебор и его сокращения	Zimnij	Общие вопросы C/C++	1	04.01.2009 14:38
Проблема с задачей на перебор..	Nixond	Паскаль, Turbo Pascal, PascalABC.NET	2	06.10.2008 13:45
Перебор элементов матрицы	pikkk	Общие вопросы Delphi	3	09.05.2008 14:45

31.03.2009, 14:23	#12
Ralf_ru Пользователь Регистрация: 19.03.2009 Сообщений: 26	Всем огромное *СПАСИБО* за помощь и терпение...