🚀 go-pugleaf

W dniu 11-07-2017 o 10:27, Roman Tyczka pisze:
> On Tue, 11 Jul 2017 09:48:35 +0200, konsul41@wp.pl wrote:
> 
>> Myślałem że gra, ale
>>
> [ciach tonę syfilisu]
> 
> 
> Czy Ty jesteś w stanie napisać ładny, czytelny kod, nawet jeśli błędny i do
> doopy? Po prostu schludny, zachowujący zasady, przejrzysty i uporządkowany?
> Bo ten burdel, który tu wklejasz co chwilę wywołuje atak sraczki.
> Nie bądź syfiarz, jak idziesz do dentysty umyj zęby, jak idziesz do
> fryzjera umyj głowę, jak wklejasz kod na grupę napisz go czytelnie i
> czysto, szanuj potencjalnych czytelników, nawet jeśli sam lubisz tonąć w
> gównie.
> 
> 
Co ty masz jakiś gorszy dzień?
Ok. pokieruj mnie gdzie on jest nie czytelny? Pytam poważnie.
Skopiuj go do Delphi i zauważ są odpowiednie wcięcia trochę komentarzy, 
itd.
Niestety przesyłając kod najpiekniej sformatowany w Delphi w poczcie 
jest rozwalane formatowanie.

Co Ci się nie podoba w tym formatowaniu
if 
CzyJestEmailWBazie(Query,FDaneProgram.user,IdMessage.Subject,IdMessage.From.Address,IdMessage.Date)>0 


nie mieści Ci się w czytniku?
if CzyJestEmailWBazie(Query,
                       FDaneProgram.user,
                       IdMessage.Subject,
                       IdMessage.From.Address,
                       IdMessage.Date)>0 then

Czy tak sformatowany kod będzie dla ciebie bardzie czytelny?

Co Ci nie podoba się w tym?
           dbinfo.Setdata(mainform.ZConnection1.HostName,
                          mainform.ZConnection1.DataBase,
                          mainform.ZConnection1.user,
                          mainform.ZConnection1.password,
                          IntToStr(mainform.ZConnection1.Port),
                          mainform.ZConnection1.Protocol,
                          mainform.ZConnection1.Properties.Text);

Może to Ci się nie podoba?
Query.SQL.Text := 'SELECT ' + ' id, nazwa, username, messageid, temat, 
odkogo, datawiadomosci, skrzynkaid, nazwaskrzynki, 
status,enadawca,dokogo' + ' FROM poczta where username=:username and 
datawiadomosci=:datawiadomosci and enadawca=:enadawca and temat=:temat ;';
W Delphi jest to sformatowane tak że znaki  '+ są na końcu linii i w 
ograniczonych czytnikach poczty nie da się tego pokazać chyba że
Query.SQL.Text :=
'SELECT ' +
' id, nazwa, '+
' username, messageid, '+
' temat, odkogo, '+
' datawiadomosci, skrzynkaid, '+
' nazwaskrzynki, status, '+
' enadawca,dokogo' +
' FROM poczta where '+
' username=:username and datawiadomosci=:datawiadomosci '+
'  and enadawca=:enadawca and temat=:temat ;';

To jest dopiero maszkara nieczytelna.