[qwwwq]

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

[Nyctos Kasignete]

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

[qwwwq]

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

Код:

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]

Код:

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

[pesi]

Код:

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]

Извращенцы

Код:

FileName := ChangeFileExt(FileName,'');

[Yurk@]

lmikle, +1

[pesi]

уж какие есть