Formatter

[Stanislav Hruška]

Skúšam ho. Neviem však nastaviť jednu možnosť pre inline premenné

Kód: Delphi [Vybrat]

1.   var SurName := Trim(ASurName);
2.   var
3.   Title := Trim(ATitle);

Chcem to mať na jednom riadku 1., lebo si skracujem dĺžku funkcie. On to hodí na dva. Viď 2. a 3..

[chaloup]

A sranda je, že se to chová jinak když tam přidáš typ:

Kód: Delphi [Vybrat]

1. var
2.   SurName: string := Trim(ASurName);
3.  

navíc ten delphi formater neumí pracovat s novým stringem na víc řádků

Kód: Delphi [Vybrat]

1. '''
2. něco
3. '''
4.  

[Stanislav Hruška]

Ja som si pamätal, že je aj v GExpert. Tak som ho nainštaloval a ... mýlil som sa.
V MMX tiež nič nie je.
Ešte som si spomenul na CnPack. Ten to robí ako to chcem - v jednom riadku!
Skratka: Ctrl+W

[Stanislav Hruška]

Vyzerá to tak, že si to budem naďalej formátovať ručne. Viď tento nezmysel od riadku 27

Kód: Delphi [Vybrat]

1. class function TBasicFunction.DateFromToOK(const ADateFrom, ADateTo: TjstDBDatePicker; MinDays: Byte): Boolean;
2. const
3.   Day2 = 2;
4.   Day4 = 4;
5. begin
6.   if IsNullDate(ADateTo.Date) then
7.     Exit(True);
8.  
9.  
10.   var NameFrom: string := ADateFrom.DataSource.DataSet.FieldByName(ADateFrom.DataField).DisplayLabel;
11.   var NameTo: string := ADateTo.DataSource.DataSet.FieldByName(ADateTo.DataField).DisplayLabel;
12.  
13.  
14.   if ADateTo.Date <= ADateFrom.Date then
15.   begin
16.     FaultDialog('Check dates', 'Date ' + NameTo + ' must be greater than date ' + NameFrom, '', '', 'Error in dates');
17.     ADateTo.EditDay.SetFocus;
18.     Exit(False);
19.   end;
20.  
21.  
22.   if (ADateTo.Date - ADateFrom.Date) < MinDays then
23.   begin
24.     var Days: string;
25.  
26.  
27.       case MinDays of Day1: Days := ' deň';
28.       Day2 .. Day4: Days := ' dni';
29.   else
30.     Days := ' dní';
31. end;
32.  
33.  
34. FaultDialog('Check dates', 'Date difference must be at least ' + IntToStr(MinDays) + Days,
35.   'Correct one of the dates ' + NameFrom + ' or ' + NameTo, '', 'Check Dates');
36. ADateTo.EditDay.SetFocus;
37. Exit(False);
38. end;

Riadky navyše mi pridal formátovať na tomto webe.