[M.i.d.n.i.g.h.t Software]

Можете превести код вот это пункта меню

Код:

procedure TForm1.N1Click(Sender: TObject);
begin
  Memo1.Lines.Add(TimeToStr(Now));
  Memo1.Lines.Add(DateToStr(Now));
end;

код сверху непомогает! в блокноте windows время и дата вставляються по другому

вот так в блокноте windows:

а с кодом сверху получаеться вот так:

[lmikle]

О господи!!!

Код:

Memo1.Lines.Add(DateTimeToStr(Now));

Ну и формат даты-времени нужный себе поставь.

[M.i.d.n.i.g.h.t Software]

Сообщение от lmikle

О господи!!!

Код:

Memo1.Lines.Add(DateTimeToStr(Now));

Ну и формат даты-времени нужный себе поставь.

И чё это тоже самое што и

Код:

Memo1.Lines.Add(TimeToStr(Now));
Memo1.Lines.Add(DateToStr(Now));

только время у тебя после даты идёт!

да кстати стлб остаёться на 1

[M.A.D.M.A.N.]

Код:

memo1.text:=memo1.text+DateTimeToStr(Date+Time);

в твоем коде идет добавление строчки.

[M.A.D.M.A.N.]

с вставкой в место курсора надо?

Код:

procedure TfrmMain.OnKeyClick(Sender: TObject);
var Symbol:String;
    _cursorpos:Integer;
    Temp,temp2:String;
begin
  Symbol:=(Sender as TSpeedButton).Caption;
  SendMessage(memFunc.Handle, EM_GETSEL, LongInt(@_cursorpos), 0);
  Try
    Temp:=Copy(memFunc.Text,1,_cursorpos);
    Temp2:=Copy(memFunc.Text,_cursorpos+1,Length(memFunc.Text));
    memFunc.Clear;
  Finally
    memFunc.Text:=Temp+Symbol+Temp2;
  End;
  SendMessage(memFunc.Handle, EM_SETSEL, _cursorpos+Length(Symbol), _cursorpos+Length(Symbol));
end;

[M.i.d.n.i.g.h.t Software]

Сообщение от M.A.D.M.A.N.

с вставкой в место курсора надо?

Код:

procedure TfrmMain.OnKeyClick(Sender: TObject);
var Symbol:String;
    _cursorpos:Integer;
    Temp,temp2:String;
begin
  Symbol:=(Sender as TSpeedButton).Caption;
  SendMessage(memFunc.Handle, EM_GETSEL, LongInt(@_cursorpos), 0);
  Try
    Temp:=Copy(memFunc.Text,1,_cursorpos);
    Temp2:=Copy(memFunc.Text,_cursorpos+1,Length(memFunc.Text));
    memFunc.Clear;
  Finally
    memFunc.Text:=Temp+Symbol+Temp2;
  End;
  SendMessage(memFunc.Handle, EM_SETSEL, _cursorpos+Length(Symbol), _cursorpos+Length(Symbol));
end;

Мне в Memo1 нужно

кароче просто превидете полный код этого пункта меню и всё