Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Что-то тут не то. [D7]

msdn11 © (2004-10-26 13:26:00)
День добрый. Проблема такая: 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 14:05:00) [1]
Всем спасибо сам разобрался. Как всегда :-)

Ega23 (2004-10-26 13:58:00) [2]
Че тут непонятного? допустим есть файл file.txt так вот его имя
выводиться как ile.txt.

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

msdn11 (2004-10-26 13:55:00) [3]
Че тут непонятного? допустим есть файл file.txt так вот его имя
выводиться как ile.txt.

Smithson (2004-10-26 13:47:00) [4]
"Товарищи ученые!

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

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

msdn11 (2004-10-26 13:38:00) [5]
Ну как всегда сам спросил сам и отвечай...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »