Помогите! (заплачу 15WMR)

Форумы Между деломПомогите! (заплачу 15WMR) ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 54

Рейтинг: 2

#1: 2008-07-21 11:54:11 ЛС | профиль | цитата

Профи делфи помогите! Заплачу 15WMR, больше нету!

Терь к делу:

Есть программа, написанная(нарисованная) в хиасме. Что она делает: при нажатии кнопки, загружается список строк из файла и строки вставляются в таблицу(компонент StringTable),
можно вносить изменения в таблице и сохранить опять же в этот файл, также есть кнопка чтоб очистить таблицу со строками. Еще есть кнопка / при нажатии на которую в 3-ей колоке удаляются все пробелы и вместо них(пробелов) ставиться знак /

Что мне нужно:

- нужно прокомментировать исходник ДЕЛФИ. Тоесть непосредственно в самом коде делфи вставить комменты и написать какая процедура, функция и т.д.. что значит и зачем нужна.

Прикрепляю архив, в нем:

- схема .sha
- project1.exe - файл программы
- файл db.txt из которого загружаются данные в таблицу
- файл код делфи.txt - делфи код этой проги (я его получил таким образом - выделял каждый компонент в схеме и нажимал Ctrl+F полученный код копировал в этот файл, именно этот полученный код делфи нужно прокомментировать. незнаю правильно ли это сделал, наверн это код делфи самих компонентов а не схемы проги... если что поправьте как получить делфи код самой проги)

П.С. - помогите ктонить! прокомментируйте код делфи. Мне оч надо сегодня до 17:00 это сделать! Горю! Пожалуйста! Как я уже говорил выше - заплачу 15WMR больше нету...
------------ Дoбавленo:

Блин! не могу прикрепить архив пишет - "У вас не хватает прав"

карма: 0

Администрация

Ответов: 15295

Рейтинг: 1519

#2: 2008-07-21 11:59:11 ЛС | профиль | цитата

220v писал(а):

(я его получил таким образом - выделял каждый компонент в схеме и нажимал Ctrl+F полученный код копировал в этот файл, именно этот полученный код делфи нужно прокомментировать. незнаю правильно ли это сделал, наверн это код делфи самих компонентов а не схемы проги... если что поправьте как получить делфи код самой проги)

неправильно. Ctrl+D надо жать

карма: 26

https://hiasm.com

Ответов: 54

Рейтинг: 2

#3: 2008-07-21 12:25:15 ЛС | профиль | цитата

неправильно. Ctrl+D надо жать

я жал Ctrl+D и че дальше? Скомпилировать проект? а где исходник делфи тогда? Типа папка CODE должна появится и в ней исходник будет? но никакой папки не создается...

И да.... как прикрепить архив?!? А то пишет - у вас не хватает прав на выполнение этой операции

------------ Дoбавленo:

Все понял, делфи-исходник проекта нашел)

вот он:


#pas
Program HiAsm;
{$ifdef F_P} {$APPTYPE GUI} {$endif}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\system.drawing.dll'}
uses
  Windows,
  hiMainForm,
  hiButton,
  hiStringTable,
  hiArrayEnum,
  hiStrList,
  hiReplace,
  hiHub,
  kol,
  Share;

type
TClassMainForm_2439FBC = class
 public
  MainForm_2439FBC:THIMainForm;
  Button_2444924:THIButton;
  StringTable_2448DE8:THIStringTable;
  Button_244893C:THIButton;
  Button_2445934:THIButton;
  Button_244764C:THIButton;
  ArrayEnum_2449F20:THIArrayEnum;
  StrList_2446D44:THIStrList;
  Replace_244A374:THIReplace;
  Hub_2447DA4:THIHub;

  constructor Create;
  destructor Destroy; override;
 end;

var
  ClassMain:TClassMainForm_2439FBC;

constructor TClassMainForm_2439FBC.Create;
begin
  inherited;
 //MainForm_2439FBC - Main
  MainForm_2439FBC := THIMainForm.Create(nil);
  with MainForm_2439FBC do begin
    _prop_Left := 20;
    _prop_Top := 105;
    _prop_Width := 535;
    _prop_Height := 394;
    _prop_Align := caNone;
    _prop_Color := -16777201;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_HintStyle := 1;
    _prop_Hint := PChar(#0);
    _prop_AlphaBlendValue := 255;
    _prop_Caption := PChar('Form'#0);
    _prop_BorderStyle := 2;
    _prop_WindowsState := 0;
    _prop_Icon := LoadIcon(hInstance,'ASMA');
    _prop_TaskBar := 0;
    _prop_DragForm := False;
    _prop_KeyPreview := True;
    _prop_TransparentColor := 16777215;
    _prop_SavePosName := PChar(#0);
    _prop_MouseCapture := False;
    _prop_ClientSize := False;
    _prop_Position := poNone;
    Init;
  end;
 //Button_2444924
  Button_2444924 := THIButton.Create(MainForm_2439FBC.Control);
  with Button_2444924 do begin
    _prop_Left := 5;
    _prop_Top := 5;
    _prop_Width := 55;
    _prop_Height := 20;
    _prop_Align := caNone;
    _prop_Color := -16777201;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_HintStyle := 1;
    _prop_Hint := PChar(#0);
    _prop_Caption := PChar('Открыть'#0);
    _prop_Flat := False;
    _prop_DefaultBtn := False;
    Init;
  end;
 //StringTable_2448DE8
  StringTable_2448DE8 := THIStringTable.Create(MainForm_2439FBC.Control);
  with StringTable_2448DE8 do begin
    _prop_Left := 5;
    _prop_Top := 30;
    _prop_Width := 505;
    _prop_Height := 320;
    _prop_Align := caNone;
    _prop_Color := -16777211;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 0;
    _prop_HintStyle := 1;
    _prop_Hint := PChar(#0);
    _prop_ModeSp := spNone;
    _prop_SizeSp := 4;
    _prop_ColorSp := -16777201;
    _prop_MinOwn := 0;
    _prop_MinRest := 0;
    _prop_FileName := PChar('db.txt'#0);
    _prop_Columns := PChar('колонка1'#13#10'колонка2'#13#10'колонка3=200'#13#10'колонка4'#0);
    _prop_StrDelimiter := PChar(';'#0);
    _prop_Grid := True;
    _prop_RowSelect := True;
    _prop_SaveWidth := False;
    _prop_ClearAll := False;
    _prop_Redaction := True;
    _prop_ColumnClick := 0;
    _prop_StaticColumn := True;
    _prop_Flat := True;
    _prop_HeaderDragDrop := False;
    Init;
  end;
 //Button_244893C
  Button_244893C := THIButton.Create(MainForm_2439FBC.Control);
  with Button_244893C do begin
    _prop_Left := 65;
    _prop_Top := 5;
    _prop_Width := 70;
    _prop_Height := 20;
    _prop_Align := caNone;
    _prop_Color := -16777201;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_HintStyle := 1;
    _prop_Hint := PChar(#0);
    _prop_Caption := PChar('Сохранить'#0);
    _prop_Flat := False;
    _prop_DefaultBtn := False;
    Init;
  end;
 //Button_2445934
  Button_2445934 := THIButton.Create(MainForm_2439FBC.Control);
  with Button_2445934 do begin
    _prop_Left := 140;
    _prop_Top := 5;
    _prop_Width := 55;
    _prop_Height := 20;
    _prop_Align := caNone;
    _prop_Color := -16777201;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_HintStyle := 1;
    _prop_Hint := PChar(#0);
    _prop_Caption := PChar('Очистить'#0);
    _prop_Flat := False;
    _prop_DefaultBtn := False;
    Init;
  end;
 //Button_244764C
  Button_244764C := THIButton.Create(MainForm_2439FBC.Control);
  with Button_244764C do begin
    _prop_Left := 200;
    _prop_Top := 5;
    _prop_Width := 25;
    _prop_Height := 20;
    _prop_Align := caNone;
    _prop_Color := -16777201;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_HintStyle := 1;
    _prop_Hint := PChar(#0);
    _prop_Caption := PChar('/'#0);
    _prop_Flat := False;
    _prop_DefaultBtn := False;
    Init;
  end;
 //ArrayEnum_2449F20
  ArrayEnum_2449F20 := THIArrayEnum.Create;
  with ArrayEnum_2449F20 do begin
    _prop_Type := 0;
    _prop_onBreakEnable := False;
  end;
 //StrList_2446D44
  StrList_2446D44 := THIStrList.Create;
  with StrList_2446D44 do begin
    _prop_FileName := PChar('db.txt'#0);
    _prop_Strings := PChar(#0);
  end;
 //Replace_244A374
  Replace_244A374 := THIReplace.Create;
  with Replace_244A374 do begin
    _prop_SubStr := PChar(' '#0);
    _prop_DestStr := PChar('/'#0);
  end;
 //Hub_2447DA4
  Hub_2447DA4 := THIHub.Create;
  with Hub_2447DA4 do begin
    _prop_InCount := 1;
    _prop_OutCount := 3;
  end;
 //Make all connection in scheme
  Button_2444924._event_onClick            := _DoEvent(StringTable_2448DE8._work_doLoad,3);
  Button_244893C._event_onClick            := _DoEvent(StringTable_2448DE8._work_doSave,4);
  Button_2445934._event_onClick            := _DoEvent(StringTable_2448DE8._work_doClear,1);
  Button_244764C._event_onClick            := _DoEvent(ArrayEnum_2449F20._work_doEnum,0);
  ArrayEnum_2449F20._event_onItem          := _DoEvent(Replace_244A374._work_doReplace,0);
  ArrayEnum_2449F20._event_onEndEnum       := _DoEvent(Hub_2447DA4.doEvent,0);
  ArrayEnum_2449F20._data_Array            := _DoEvent(StringTable_2448DE8._var_Strings,2);
  Replace_244A374._event_onReplace         := _DoEvent(StrList_2446D44._work_doAdd,0);
  Hub_2447DA4.onEvent[0]                   := _DoEvent(StrList_2446D44._work_doSave,5);
  Hub_2447DA4.onEvent[1]                   := _DoEvent(StringTable_2448DE8._work_doClear,1);
  Hub_2447DA4.onEvent[2]                   := _DoEvent(StringTable_2448DE8._work_doLoad,3);
  MainForm_2439FBC.Control.Tabulate;
end;

destructor TClassMainForm_2439FBC.Destroy;
begin
  Hub_2447DA4.Destroy;
  Replace_244A374.Destroy;
  StrList_2446D44.Destroy;
  ArrayEnum_2449F20.Destroy;
  Button_244764C.Destroy;
  Button_2445934.Destroy;
  Button_244893C.Destroy;
  StringTable_2448DE8.Destroy;
  Button_2444924.Destroy;
  MainForm_2439FBC.Destroy;
  inherited;
end;

begin
if ParamStr(1) = '/ih' then
  begin
    MessageBox(0,'Сделано в HiAsm.','HiAsm Info',MB_OK);
    Halt;
  end;
  ClassMain := TClassMainForm_2439FBC.Create;
  ClassMain.MainForm_2439FBC.Start;
  Run(Applet);
  ClassMain.Destroy;
end.

Прокомментируйте его ктонить пожалуйста! Умоляю! Оч надо! Предложение действует только сегодня до 17:00! Заплачу 15WMR

карма: 0

Ответов: 446

Рейтинг: 7

#4: 2008-07-21 12:55:13 ЛС | профиль | цитата

Как то 15 WMR не внушают желания - по курсу это 14 рублей "минус" комиссия. За 15 WMZ может кто то и взялся бы. Либо просить на общественных началах за "спасибо" ИМХО больше толку будет.

Сам к сожелению ничем помочь не могу, т.к. в Дельфи не силен вообще.

карма: 0

Время верстки: Текущее время: %time%

Ответов: 54

Рейтинг: 2

#5: 2008-07-21 13:03:43 ЛС | профиль | цитата

Stasie писал(а):

Такая сумма 15WMR потому что щас больше нету

Да, я в курсе что мало а что делатЬ? Хоть что-то чем ничего... Если за 15WMR желающих нету то за "Спасибо" тем более никто не будет браться

Ладно, я уже в исходнике разобрался сам, так что предложение закрываю! Всем спасибо!

П.С. - токо зря поднял шумиху

карма: 0

Ответов: 29

Рейтинг: -7

#6: 2008-07-29 08:52:48 ЛС | профиль | цитата

А вас не заинтересовало это
code_9587.txt

карма: 1

файлы: 1

code_9587.txt [257B] [193]

Разработчик

Ответов: 26322

Рейтинг: 2147

#7: 2008-07-29 10:10:46 ЛС | профиль | цитата

Program_error писал(а):

А вас не заинтересовало это

И в чем прикол

HiAsm -- открытый проект, можешь заменить на свое и перекомпилировать, вопрос только -- зачем

карма: 22

Ответов: 16884

Рейтинг: 1239

#8: 2008-07-29 10:36:42 ЛС | профиль | цитата

Program_error писал(а):

А вас не заинтересовало это

А что нельзя. Реклама - она и в Африке реклама.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Между деломПомогите! (заплачу 15WMR) ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)