Autor Téma: OT Skúška vkladania zdroja - nenašiel som vhodnejšie miesto  (Přečteno 2344 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 2610
  • Karma: 23
    • Verze Delphi: XE7 professional
Kopírujem to z XE2. Ako text
 
procedure TfrmDepositList.vstDepositDblClick(Sender: TObject);
var
  NumberOfEdtit, Columns, Rows, Basicnumber: Integer;
  Root: Real;
begin
  NumberOfEdtit := vstDeposit.Header.Columns.Count -2;
  Root := Sqrt(NumberOfEdtit);
  Basicnumber := Trunc(Root);
  if Root = Basicnumber then
  begin
    Columns := Basicnumber;
    Rows := Basicnumber;
  end
  else
  begin
    if (Root - Basicnumber) < 0.5 then
    begin
      Columns := Basicnumber +1;
      Rows := Basicnumber;
    end
    else
    begin
      Columns := Basicnumber +1;
      Rows := Basicnumber +1;
    end
  end;
  CreateEditForDepositEdit(NumberOfEdtit, Rows, Columns);
  frmDepositEdit.Show;
  EnableEdit(Self, False);
end;

Ako code
Kód: [Vybrat]
procedure TfrmDepositList.vstDepositDblClick(Sender: TObject);var  NumberOfEdtit, Columns, Rows, Basicnumber: Integer;  Root: Real;begin  NumberOfEdtit := vstDeposit.Header.Columns.Count -2;  Root := Sqrt(NumberOfEdtit);  Basicnumber := Trunc(Root);  if Root = Basicnumber then  begin    Columns := Basicnumber;    Rows := Basicnumber;  end  else  begin    if (Root - Basicnumber) < 0.5 then    begin      Columns := Basicnumber +1;      Rows := Basicnumber;    end    else    begin      Columns := Basicnumber +1;      Rows := Basicnumber +1;    end  end;  CreateEditForDepositEdit(NumberOfEdtit, Rows, Columns);  frmDepositEdit.Show;  EnableEdit(Self, False);end;Ako delphi
Kód: Delphi [Vybrat]
  1. procedure TfrmDepositList.vstDepositDblClick(Sender: TObject);var  NumberOfEdtit, Columns, Rows, Basicnumber: Integer;  Root: Real;begin  NumberOfEdtit := vstDeposit.Header.Columns.Count -2;  Root := Sqrt(NumberOfEdtit);  Basicnumber := Trunc(Root);  if Root = Basicnumber then  begin    Columns := Basicnumber;    Rows := Basicnumber;  end  else  begin    if (Root - Basicnumber) < 0.5 then    begin      Columns := Basicnumber +1;      Rows := Basicnumber;    end    else    begin      Columns := Basicnumber +1;      Rows := Basicnumber +1;    end  end;  CreateEditForDepositEdit(NumberOfEdtit, Rows, Columns);  frmDepositEdit.Show;  EnableEdit(Self, False);end;
Ako SQL
Kód: SQL [Vybrat]
  1. PROCEDURE TfrmDepositList.vstDepositDblClick(Sender: TObject);var  NumberOfEdtit, COLUMNS, ROWS, Basicnumber: INTEGER;  Root: REAL;BEGIN  NumberOfEdtit := vstDeposit.Header.COLUMNS.COUNT -2;  Root := SQRT(NumberOfEdtit);  Basicnumber := Trunc(Root);  IF Root = Basicnumber THEN  BEGIN    COLUMNS := Basicnumber;    ROWS := Basicnumber;  END  ELSE  BEGIN    IF (Root - Basicnumber) < 0.5 THEN    BEGIN      COLUMNS := Basicnumber +1;      ROWS := Basicnumber;    END    ELSE    BEGIN      COLUMNS := Basicnumber +1;      ROWS := Basicnumber +1;    END  END;  CreateEditForDepositEdit(NumberOfEdtit, ROWS, COLUMNS);  frmDepositEdit.SHOW;  EnableEdit(SELF, FALSE);END;

Súdruhovia, prečo?
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline Mi.Chal.

  • Guru
  • *****
  • Příspěvků: 558
  • Karma: 23
Re:OT Skúška vkladania zdroja - nenašiel som vhodnejšie miesto
« Odpověď #1 kdy: 26-04-2013, 13:28:05 »
asi máš blbě oddělovače řádků, zkus CRLF, teď máš asi jenom CR nebo LF

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 1678
  • Karma: 70
    • Verze Delphi: D2007, XE3, DX10
Re:OT Skúška vkladania zdroja - nenašiel som vhodnejšie miesto
« Odpověď #2 kdy: 27-04-2013, 07:38:28 »
asi máš blbě oddělovače řádků, zkus CRLF, teď máš asi jenom CR nebo LF

To me taky napadlo, ale jedine kde jsem to v XE3 nasel je Formatter ( | Delphi | Line Breaks | General | Line Breaks Characters) = Default value of the System.
Kdyby to melo souviset s tim co napisu na klabosnici, tak bych to ocekaval v Editor Options a tam nic takoveho nevidim.

Nereformatoval jsi kod pomoci Ctrl+D?
Nebo pokud pouzivas nejaky ten China pack nebo jak se to jmenuje, nema neco v nastaveni ten?

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 2610
  • Karma: 23
    • Verze Delphi: XE7 professional
Re:OT Skúška vkladania zdroja - nenašiel som vhodnejšie miesto
« Odpověď #3 kdy: 27-04-2013, 09:14:14 »
Doteraz som ten problém nemal. V nastaveniach som nič nemenil. Predtým mi to fungovalo čiastočne opačne. Ako text vyhádzalo všetky vodiace medzery, ale riadkovanie zachoval.

Teraz tam ako text ponechá všetko.

Nereformatoval jsi kod pomoci Ctrl+D? - nie. To ani nepoznám  :)
China pack - používam.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline < z >

  • Administrátoři
  • Guru
  • *****
  • Příspěvků: 1068
  • Karma: 36
    • Verze Delphi: 7, 2010
Re:OT Skúška vkladania zdroja - nenašiel som vhodnejšie miesto
« Odpověď #4 kdy: 27-04-2013, 11:26:25 »
musi to jet normalne :D
mas neco se schrankou

Kód: Delphi [Vybrat]
  1. procedure TfrmDepositList.vstDepositDblClick(Sender: TObject);
  2. var
  3.   NumberOfEdtit, Columns, Rows, Basicnumber: Integer;
  4.   Root: Real;
  5. begin
  6.   NumberOfEdtit := vstDeposit.Header.Columns.Count -2;
  7.   Root := Sqrt(NumberOfEdtit);
  8.   Basicnumber := Trunc(Root);
  9.   if Root = Basicnumber then
  10.   begin
  11.     Columns := Basicnumber;
  12.     Rows := Basicnumber;
  13.   end
  14.   else
  15.   begin
  16.     if (Root - Basicnumber) < 0.5 then
  17.     begin
  18.       Columns := Basicnumber +1;
  19.       Rows := Basicnumber;
  20.     end
  21.     else
  22.     begin
  23.       Columns := Basicnumber +1;
  24.       Rows := Basicnumber +1;
  25.     end
  26.   end;
  27.   CreateEditForDepositEdit(NumberOfEdtit, Rows, Columns);
  28.   frmDepositEdit.Show;
  29.   EnableEdit(Self, False);
  30. end;

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 2610
  • Karma: 23
    • Verze Delphi: XE7 professional
Re:OT Skúška vkladania zdroja - nenašiel som vhodnejšie miesto
« Odpověď #5 kdy: 27-04-2013, 14:18:02 »
To je možné. Ale v rámci aplikácií problém nemám. PSPad - XE2 - Word.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

 

S rychlou odpovědí můžete používat BB kódy a emotikony jako v běžném okně pro odpověď, ale daleko rychleji.

Upozornění: do tohoto tématu bylo naposledy přispěno před 120 dny.
Zvažte prosím založení nového tématu.

Jméno: E-mail:
Ověření:
Křestní jméno zpěváka Gotta: