Что-то тут не то.

← →
msdn11 (2004-10-26 13:26) [0]

День добрый. Проблема такая: filelistbox1.Items.ValueFromIndex[j]
съедает первый символ из имени файла. Поясните в чём проблема?
Код моей процедуры:

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..10] of string;
i,j:integer;
old:string;
find:bool;
begin
a[0]:="101_80";
a[1]:="120_130";
a[2]:="120_160";
a[3]:="128_128";
a[4]:="128_144";
a[5]:="128_160";
a[6]:="132_176";
a[7]:="174_132";
a[8]:="176_220";
a[9]:="208_144";
a[10]:="96_65";

if length(edit1.Text)<5 then
begin
ShowMessage("не корректный ввод ин-ции.");
exit;
end else
begin
for i:=0 to length(a)-1 do
begin
if not DirectoryExists(DirectoryListBox1.Directory+"\"+a[i]) then
begin
ShowMessage("Папка"+a[i]+"не найдена");
break;
end else
begin
old:=DirectoryListBox1.Directory;
DirectoryListBox1.Directory:=DirectoryListBox1.Directory+"\"+a[i];
find := false;
for j:=0 to filelistbox1.Items.Count-1 do
begin
if Pos(edit1.Text, filelistbox1.Items.ValueFromIndex[j])<>0 then
begin
find := true;
memo1.text:=memo1.text+filelistbox1.Items.ValueFromIndex[j];
end;

end;
if find = false then
begin
ShowMessage("В папке "+a[i]+" файл с кодом "+edit1.Text+" не найден");
end;

DirectoryListBox1.Directory:=old;
end;
end;
end;

end;

← →
msdn11 (2004-10-26 13:38) [1]

Ну как всегда сам спросил сам и отвечай...

← →
Smithson (2004-10-26 13:47) [2]

"Товарищи ученые!

У меня в подполе который год происходит подземный стук. Объясните пожалуйста, как он происходит." (С)

Ты вопрос понятнее задай, глядишь и ответ будет.

← →
msdn11 (2004-10-26 13:55) [3]

Че тут непонятного? допустим есть файл file.txt так вот его имя
выводиться как ile.txt.

Че тут непонятного? допустим есть файл file.txt так вот его имя
выводиться как ile.txt.

Всё непонятно. Куда выводится? В каком месте? Чему равно filelistbox1.Items ?

← →
msdn11 (2004-10-26 14:05) [5]

Всем спасибо сам разобрался. Как всегда :-)

Что-то тут не то. Найти похожие ветки