0 о89

← →
Demo (2003-01-04 19:50) [0]

где ошибка перемещает тока последний ыайл с списка

void __fastcall TForm2::SpeedButton7Click(TObject *Sender)
{
MkDir(d);

for (f=0;f=CheckListBox1->Items->Count-1;f++)
{
change_file_name();
AnsiString newadr = d+"\\"+fs;
MoveFile(fs.c_str(),newadr.c_str());
if(f==CheckListBox1->Items->Count-1)
Form3->ProgressBar1->Position+1;
}
}

← →
RWolf (2003-01-04 19:55) [1]

распиши change_file_name()
сдается мне, что fs на протяжении всего цикла не меняется

← →
ZrenBy (2003-01-04 19:57) [2]

>>f=CheckListBox1->Items->Count-1

f<=CheckListBox1->Items->Count-1

← →
RWolf (2003-01-04 19:59) [3]

>>>ZrenBy

:)))))))
вот за это я и не люблю С ;)

← →
Demo (2003-01-04 20:04) [4]

void change_file_name()
{
f_n=Form2->CheckListBox1->Items->Strings[f-1];
int i=AnsiPos("-",f_n)+5;
int g=i-StrToInt(f_n.Length());
fs = f_n.SubString(i,f_n.Length()-i+1);
}

← →
Demo (2003-01-04 20:06) [5]

я просто хочу вытащить имя файла из всей строки адреса

← →
RWolf (2003-01-04 20:10) [6]

есть мнение, что функция change_file_name()
и слыхом не слыхивала о _локальной_ переменной f
;)

← →
RWolf (2003-01-04 20:11) [7]

впрочем, вру, все ОК ;)

← →
Demo (2003-01-04 20:13) [8]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
String Ansi_pos;
AnsiString d="C:\\мля\\мля";
AnsiString f_n,fs;
int f;
TStringList *List = new TStringList();
слыхала слыхала

← →
RWolf (2003-01-04 20:14) [9]

в любом случае, ошибку уже нашли :)

← →
Demo (2003-01-04 20:15) [10]

где???

← →
RWolf (2003-01-04 20:15) [11]

см. пост №3

← →
Demo (2003-01-04 20:18) [12]

Удалено модератором
Примечание: OffTopic

← →
RWolf (2003-01-04 20:21) [13]

Удалено модератором
Примечание: OffTopic

← →
Demo (2003-01-04 20:23) [14]

Удалено модератором
Примечание: OffTopic

← →
RWolf (2003-01-04 20:25) [15]

это на forum.ixbt.com

← →
Demo (2003-01-04 20:27) [16]

Спасибо

0 о89 Найти похожие ветки