Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c