Delphi > Obecné

Formatter

(1/1)

Stanislav Hruška:
Skúšam ho. Neviem však nastaviť jednu možnosť pre inline premenné
--- Kód: Delphi ---  var SurName := Trim(ASurName);  var  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 ---var   SurName: string := Trim(ASurName); 
navíc ten delphi formater neumí pracovat s novým stringem na víc řádků

--- Kód: Delphi ---'''něco''' 

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 ---class function TBasicFunction.DateFromToOK(const ADateFrom, ADateTo: TjstDBDatePicker; MinDays: Byte): Boolean;const  Day2 = 2;  Day4 = 4;begin  if IsNullDate(ADateTo.Date) then    Exit(True);    var NameFrom: string := ADateFrom.DataSource.DataSet.FieldByName(ADateFrom.DataField).DisplayLabel;  var NameTo: string := ADateTo.DataSource.DataSet.FieldByName(ADateTo.DataField).DisplayLabel;    if ADateTo.Date <= ADateFrom.Date then  begin    FaultDialog('Check dates', 'Date ' + NameTo + ' must be greater than date ' + NameFrom, '', '', 'Error in dates');    ADateTo.EditDay.SetFocus;    Exit(False);  end;    if (ADateTo.Date - ADateFrom.Date) < MinDays then  begin    var Days: string;        case MinDays of Day1: Days := ' deň';      Day2 .. Day4: Days := ' dni';  else    Days := ' dní';end;  FaultDialog('Check dates', 'Date difference must be at least ' + IntToStr(MinDays) + Days,  'Correct one of the dates ' + NameFrom + ' or ' + NameTo, '', 'Check Dates');ADateTo.EditDay.SetFocus;Exit(False);end;Riadky navyše mi pridal formátovať na tomto webe.

Navigace

[0] Seznam témat

Přejít na plnou verzi