Вопросы и ответы

[martinges]

В матлабе, в математике, в дерайве еще помойму

[haha]

slyfox

microsoft®excel mmul или МУМНОЖ(диапазон1;диапазон2)

martinges

что за дерайв? интересно посмотреть.

[martinges]

Когда я учился на прикладной в своё время он был обязателен для изучения там насколько помню стандартный пакет инструментов для работы с ОДУ немного Тигров, матричный анализ, в частных производных.... ангем, линал и всё это еще и визуализировано.

P.S. В свое время нам давали диск с этими мат пакетами а теперь как то недосуг решать их через эти пакеты

[slyfox]

martinges haha спс! ща попробую.. если еще найду эти проги на улановке..

[Робус Гробус]

какие функции в Delphi конвертируют символ в код винды и обратно? Помогите плз

[JSTQ]

Код винды? Может в ASCII код?

зы приведи пример для чего тебе это нужно. Можно и без конвертации символа обойтись. Например

if(a[i]in['+','/','*','-'])and(a[i-1]in['0','1','2','3','4','5','6','7','8','9','x'])then ...

[Po$amax@]

Робус Гробус

function conv2ASC2(text: string): string;
var
	symbols: string;
	i: integer;
begin
	symbols := '';
	for i:=1 to length(text) do
		begin
			symbols := symbols + ''+inttostr(ord(text[i]))+';';
		end;
	result := symbols;
end;

Добавлено спустя 2 минуты 19 секунд:

Теперь мой вопрос по Delphi

имеется код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ResStream: TResourceStream;
  FileStream: TFileStream;
  instance : thandle;
  resid : integer;
  filename : string;

begin
  try
    instance := getmodulehandle(pchar('C:\Program Files\QuickTime\QuickTimePlayer.exe'));
    resid := 162;
    ResStream := TResourceStream.CreateFromID(Instance, ResID, 'CUSTOM');
    try
      filename := extractfilepath(paramstr(0)) + '\null.ico';
      if FileExists(FileName) then
        DeleteFile(pChar(FileName));
      FileStream := TFileStream.Create(filename, fmCreate);
      try
        FileStream.CopyFrom(ResStream, 0);
      finally
        FileStream.Free;
      end;
    finally
      ResStream.Free;
    end;
  except
    on E:Exception do
    begin
      DeleteFile(pchar(FileName));
      raise;
    end;
  end;
end;

но вот всегда почему-то пишет, что ресурс №162 не был найден, хотя он там есть (прочерял через ResourceHacker), что не так в этом коде (мб THandle неверно получаю?)?

[coder]

Теперь мой вопрос по Delphi

имеется код:

    instance := getmodulehandle(pchar('C:\Program Files\QuickTime\QuickTimePlayer.exe'));

instance у вас чему равен ? 0

GetModuleHandle - использовали, а грузить кто будет ?

The module must have been loaded by the calling process.

тогда зачем GetModuleHandle, если это не повторное использование без загрузки.

TResourceStream.CreateFromID(Instance, ResID, 'CUSTOM');

'CUSTOM' - это кто ?

The following are the predefined resource types.

RT_ACCELERATOR Accelerator table.

RT_ANICURSOR Animated cursor.

RT_ANIICON Animated icon.

RT_BITMAP Bitmap resource.

RT_CURSOR Hardware-dependent cursor resource.

RT_DIALOG Dialog box.

RT_DLGINCLUDE Allows a resource editing tool to associate a string with an .rc file. Typically, the string is the name of the header file that provides symbolic names. The resource compiler parses the string but otherwise ignores the value. For example, /* file MyFile.dlg */ 1 DLGINCLUDE "MyFile.h"

RT_FONT Font resource.

RT_FONTDIR Font directory resource.

RT_GROUP_CURSOR Hardware-independent cursor resource.

RT_GROUP_ICON Hardware-independent icon resource.

RT_HTML HTML.

RT_ICON Hardware-dependent icon resource.

RT_MANIFEST Microsoft Windows XP: Side-by-Side Assembly XML Manifest.

RT_MENU Menu resource.

RT_MESSAGETABLE Message-table entry.

RT_PLUGPLAY Plug and Play resource.

RT_RCDATA Application-defined resource (raw data).

RT_STRING String-table entry.

RT_VERSION Version resource.

RT_VXD VXD.

[Po$amax@]

coder

типо так что ли:

handle := loadlibrary('C:\....\QuickTimePlayer.exe');
TResourceStream.CreateFromID(handle, ResID, RC_GROUP_ICON);

???

[Робус Гробус]

Po$amax@ спасибо!

[ALEKSEEV]

Вот сожно чтонебуть придумать себу какйнебуть задачку чтонебуть намутить а то вот сижу незнаю чем заняться думаю чтонебуть но нечего в голову нелезит((

[Hover]

народ, первый раз пишу здесь.

Для меня здесь ничего не понятно.

Скажите, что такое протокол РРРоЕ? (всё не надо)

[ALEKSEEV]

Ктонебуть писал на делфи чат или чтонебуть ещё суть в том чтобы по сети были клиент и сервер?

[coder]

ALEKSEEV

да, но не вижу вопроса. по памяти, в папке демос есть простые примеры.

делфи

не язык программирования.

[MustDie]

ALEKSEEV

да, но не вижу вопроса. по памяти, в папке демос есть простые примеры.

делфи

не язык программирования.

delphi - это также язык программирования!

[martinges]

Хех всегда считал что Delphi это среда разработки на основе ЯЗЫКА Object Pascal оказывается был прав лишь отчасти))

.....

Delphi (Де́льфи, произносится /ˈdɛlˌfi/[1]) — язык программирования, который используется в одноимённой среде разработки. Название используется начиная с 7 версии среды разработки[2], ранее это был Object Pascal, разработанный фирмой Borland и изначально реализованный в её пакете Borland Delphi, от которого и получил в 2003 году своё нынешнее название. Object Pascal по сути является наследником языка Pascal с объектно-ориентированными расширениями - Turbo Pascal.

.......

взято с википедии

[JSTQ]

1. [*:2a076ac6ef]Как в C++ Builder вывести весь массив на форму? В какой обхект? Пытался через StringGrid

void __fastcall TForm1::Button1Click(TObject *Sender){
  int I, J, K;
  K = 0;
  for (I = 0; I < StringGrid1->ColCount; I++)
    for (J = 0; J < StringGrid1->RowCount; J++)
      StringGrid1->Cells[I][J] = IntToStr(++K);
}

Копмилятор давай какуюто фигню про AnsiString загонять (конвертирует int неправильно или хз что он там вообще делает...)[*:2a076ac6ef]Как работает random? Кусок кода

  for (i=0;iText);i++){
   m[i]==random(10)+1;
}

- получаются числа от -1 до 100000000... (int m[99])

[Maru]

1. [*:1d67c86135]Как в C++ Builder вывести весь массив на форму? В какой обхект? Пытался через StringGrid

void __fastcall TForm1::Button1Click(TObject *Sender){
  int I, J, K;
  K = 0;
  for (I = 0; I < StringGrid1->ColCount; I++)
    for (J = 0; J < StringGrid1->RowCount; J++)
      StringGrid1->Cells[I][J] = IntToStr(++K);
}

Копмилятор давай какуюто фигню про AnsiString загонять (конвертирует int неправильно или хз что он там вообще делает...)[*:1d67c86135]Как работает random? Кусок кода

  for (i=0;iText);i++){
   m[i]==random(10)+1;
}

- получаются числа от -1 до 100000000... (int m[99])

1. а где тут массив? по идее вывести проще будет в какой-нить textbox или richedit, чем париться с ячейками грида

2. используй лучше стандартную функцию rand():

#include 
#include 
#include 

using namespace std;

int main()
{
    srand((unsigned)time(0));
    int random_integer;
    for(int index=0; index<20; index++){
        random_integer = (rand()%10)+1;
        cout << random_integer << endl;
    }
}

диапазон чисел задается вот таким образом (rand()%10)+1 - числа от 1 до 10 включительно

[JSTQ]

1. а где тут массив?

Это просто пример из справки, у меня почти также написано было (оттуда узнал про Сells...)

2. используй лучше стандартную функцию rand():

if (Edit1->Text!=""&&Edit1->Text!=" "&&Edit1->Text!="0") {
  int m[99];
  Form2->Label1->Caption="";
  for (i=0;iText);i++){
   m[i]==(rand()%10)+1;
   Form2->Label1->Caption=Form2->Label1->Caption+IntToStr(m[i])+"  ";
   }

Нашел ошибку - стоит лишнее равно, + были не занулены элементы массива - выводился мусор.

[Johns]

помогите решить задачу на прологе - исключить из списка отрицательные элементы

[bab-nick]

у мну вопрос срочный.

есть задача на MS Visual Studio 2008, язык C#.

Как в DataGridView сделать поле типа ComboBox с записями из другой таблицы?!

искать самому долго, поэтому хелп кто знает...

[прохожий]

искать самому долго, поэтому хелп кто знает..

гугл знает все =)

[bab-nick]

прохожий

ну это понятно, просто на работе доступна только внутренняя сеть, на гугл доступа нету... может закинет кто-нить кусочег кода...

[JSTQ]

[stilyagayo]

Привет всем! вопрос такое, можно ли поделенный жесткий диск ( основной) на два , поделить на три, без переустановки винды?

Добавлено спустя 3 минуты 12 секунд:

забыл в NTFS заранее спс