Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Укажыте мне мою ошыбку

Автор: shad0w 11.5.2005, 23:49

Здраствуйте у меня вопрос:
В делфе была такая замечательная конструкция

Код


procedure TForm1.N4Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
    memo1.lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;

Пересев на билдер, попробывал зделать так

Код


void __fastcall TForm1::N4Click(TObject *Sender)
{
 if (&TForm1::OpenDialog1->Execute)
  {
   Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
  }
}

Синтаксических ошыбок вроде нет, но пример не работает. Что я делаю не так?

Автор: Hearse 12.5.2005, 01:06

Код



void __fastcall TForm1::N4Click(TObject *Sender)
{
 if (OpenDialog1->Execute())
  {
   Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
  }
}

Автор: shad0w 12.5.2005, 10:59

2Hearse пасибище=)

Автор: shad0w 12.5.2005, 11:32

Ищё вопрос:
как на С будет выглядеть такой код:

Код


s:=memo1.Text;
 for i:=1 to Length(S) do
   S[i] := Chr(Ord(S[i]) xor $1c);

Автор: tigger 12.5.2005, 14:04

Попробуй так....

Код


AnsiString s;
s = Memo1->Text;
for (register int i = 1; i < s.Length(); i++)
   s[i] = ((int(s[i])) ^ 0x1c);

Автор: shad0w 12.5.2005, 23:18

Псиба,всё работает. Только походу ищё вопрос возник. ^ - ето аналог xor?

Автор: tigger 13.5.2005, 12:58

Да это аналог XOR или "исключающего или"... smile