Вниз
Скачать: CL | DM;

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]

Спасибо



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

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



Память: 0.47 MB
Время: 0.01 c
3-48958
lefan
2002-12-23 11:40
2003.01.16
Проблема с Query....


1-48972
dor
2003-01-06 10:51
2003.01.16
Прога такая


14-49274
asafr
2002-12-27 13:05
2003.01.16
Сказка стала былью! Брехня, конечно, но приятно..


3-48916
oss
2002-12-20 10:32
2003.01.16
ADO


14-49202
Сатир
2002-12-25 14:49
2003.01.16
Задача для разминки мозгов




   Наверх