Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

0 о89 [WinXP]


Demo ©   (2003-01-04 19:50:00) 

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

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;
}
}


Demo   (2003-01-04 20:27:00) [1]

Спасибо


RWolf   (2003-01-04 20:25:00) [2]

это на forum.ixbt.com


Demo   (2003-01-04 20:23:00) [3]

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


RWolf   (2003-01-04 20:21:00) [4]

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


Demo   (2003-01-04 20:18:00) [5]

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


Demo   (2003-01-04 20:15:00) [6]

где???


RWolf   (2003-01-04 20:15:00) [7]

см. пост №3


RWolf   (2003-01-04 20:14:00) [8]

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


Demo   (2003-01-04 20:13:00) [9]

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

#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:11:00) [10]

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


RWolf   (2003-01-04 20:10:00) [11]

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


Demo   (2003-01-04 20:06:00) [12]

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


Demo   (2003-01-04 20:04:00) [13]

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);
}


RWolf   (2003-01-04 19:59:00) [14]

>>>ZrenBy

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


ZrenBy   (2003-01-04 19:57:00) [15]

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

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


RWolf   (2003-01-04 19:55:00) [16]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо