Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

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

 
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.


 
Ega23 ©   (2004-10-26 13:58) [4]

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


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


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

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



Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.067 c
14-1097935328
negrila
2004-10-16 18:02
2004.11.07
как обрабатывать линии?


1-1098197457
Anton_G
2004-10-19 18:50
2004.11.07
глиф с альфа-каналом (полупрозрачность)


4-1096745572
Асякин
2004-10-02 23:32
2004.11.07
Загрузка DLL


6-1093878441
zlo_inside
2004-08-30 19:07
2004.11.07
монитор портов


4-1096702632
Comp
2004-10-02 11:37
2004.11.07
TOOLBAR