не могу разобраться с Делфи 7

[angelap]

подскажите пожалуйста. есть программа которая проходит по папкам и ищет там нужные файлы. Папок несколько, а у меня ищет только в одной. Вопрос: "Как написать цикл который будет пробигаться по всем папкам(названия папок записаны в txt)". Спасибо)))

[Stilet]

http://www.programmersforum.ru/showthread.php?t=6639
Подходит?

[angelap]

нет))мне бы While цикл)

[Stilet]

С ним ты не пройдешься по вложенным каталогам.

[angelap]

все я разобрался, но возник другой вопрос: "Как считать из файла последние два символа в строке и записать их в переменную")))

[Ezhik Kihze]

Какая кодировка у строк в файле? Какие "символ" конца строки, файла?

[angelap]

кодировка незнаю, вот такие строчки есть в файле
d:\home\ROVD_01
d:\home\ROVD_02
d:\home\ROVD_03
d:\home\ROVD_04
мне нужно считать последние 2 символа(выделил жирным) и записать их в переменную.

[Stilet]

var st:TStringList;
...
st:=TStringList.Create;
...
st.LoadFromFile(файл);
...:=copy(st.text,Length(st.text)-2,2);
...
st.free;

Принцип считывания понятен? Учитывая что файл текстовый.

[angelap]

да все получилось)) спасибо большое))