[qwwwq]

есть две формы (form1 и form2) на каждой форме например есть по кноппке button1 и button2 как при нажатии по кнопке button2 из формы form2 поменялось имя button1 из формы Form1.
И еще я когда в form2 в uses прописываю unit1 то он пишет ошибка а когда наоборот в form1 прописываю unit2 то все нормально
Помогите пожалуйста, заранее спасибо

[Nyctos Kasignete]

Какую ошибку пишет-то? Случайно не «Circular unit reference to...»?
Если да, то перенесите строку «uses Unit1;» в раздел implementation.

[qwwwq]

Помогло, спасибо. еще вот вопрос
я вот таким методом нахужу все файлы в папке

Код:

1 2 3 4 5 6 7 8 9

APath:='С:/Temp; isFound := FindFirst( APath + '*.*', faAnyFile, sr ) = 0;  //Поиск первого файла while isFound do    begin      if ( sr.Name <> '.' ) and ( sr.Name <> '..' ) and    //Если файл не является папкой          ( ( sr.Attr and faDirectory ) <> faDirectory ) then          begin            temp := ExtractFileName( sr.Name );   //получаем имя файла          end;

и в итоге в temp помещается имя файла с расширением, а как получить только имя фала?

[Nyctos Kasignete]

Код:

1 2	temp := ExtractFileName( sr.Name ); //получаем имя файла tempExtless := Copy(temp, 1, Pos(ExtractFileExt(temp), temp) - 1); //получаем имя файла без расширения

[pesi]

Код:

1 2 3 4 5 6 7 8 9

var str :string; i :integer; begin str := ExtractFileName('C:\1\Delete.mht'); i := Length(ExtractFileExt(str))-1; Delete(str, Length(str)-i, MaxInt); ShowMessage(str); end;

[lmikle]

Извращенцы

Код:

1	FileName := ChangeFileExt(FileName,'');

[Yurk@]

lmikle, +1

[pesi]

уж какие есть