Ordnung beim Coden?

[m.fuchs]

Aber sagt man nicht auch! erst das Programm voll zum laufen bringen und denne Optimieren???

Ja, das ist durchaus korrekt. Aber Optimieren <> sauberen Code schreiben. Ohne den wird es mit dem Optimieren nämlich recht schwer.

Übrigens zu deiner Frage wie man den Code formatiert: Da gibt es beispielsweise einen Styleguide für Delphi (http://edn.embarcadero.com/article/10280), den man durchaus auch einmal lesen kann.
Ich versuche mich daran möglichst zu orientieren, nur bei bestimmten begin..end; - Konstrukten weiche ich ab. Mir ist das lieber:

Code: Alles auswählen

if Blafasel then begin
  DoSomething;
  DoSomethingOther(1);
end;

Micha

[pluto]

Ich versuche mich daran möglichst zu orientieren, nur bei bestimmten begin..end; - Konstrukten weiche ich ab. Mir ist das lieber:

Geht mir auch so. Ich kann dieses

Code: Alles auswählen

if .... then
begin
end

einfach nicht ab. Das ist einfach zu Unübersichtlich. In einigen Fällen schreibe ich sogar mehrere Anweisungen in einer Zeile. Z.b. wenn ich Variablen Installisiere.

[Maik81ftl]

Ich versuche mich daran möglichst zu orientieren, nur bei bestimmten begin..end; - Konstrukten weiche ich ab. Mir ist das lieber:

Geht mir auch so. Ich kann dieses

Code: Alles auswählen

if .... then
begin
end

einfach nicht ab. Das ist einfach zu Unübersichtlich. In einigen Fällen schreibe ich sogar mehrere Anweisungen in einer Zeile. Z.b. wenn ich Variablen Installisiere.

also ich muß sagen, das ich mit dem "mehrere Anweisung in eine Zeile schreiben" kann seine Vorteile haben, Aber ich verwende diese if then wenn möglich immer so

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
  if bValue then
    begin
    with Form3.Image1 do
      begin
      .
      .
      end;
    end;
end;

da weiß ich immer, ob ich alle "End;" drinne habe und wo der anfang bzw das ende ist.

bei

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
  if bValue then begin
    with Form3.Image1 do
      begin
      .
      .
      end;
    end;
end;

verliere ich zu schnell den Überblick. Aber sollte ja am ende jeder für sich entscheiden, wie er schreibt.

[m.fuchs]

Hm, deine Methode des Einrückens ist ja nun ganz seltsam. Bei dir wird (teilweise nur) das begin..end eingerückt und die inneren Anweisungen liegen damit gleichauf.
Nimm es nicht persönlich aber das ist wirklich bäääääääh.

Micha

[Maik81ftl]

Hm, deine Methode des Einrückens ist ja nun ganz seltsam. Bei dir wird (teilweise nur) das begin..end eingerückt und die inneren Anweisungen liegen damit gleichauf.
Nimm es nicht persönlich aber das ist wirklich bäääääääh.

Micha

ich weiß, hab ich schon das ein oder andere mal gehört, aber wenn ich so den Überblick behalte, warum nicht.

nur ob ich mit der Variante

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
  if bValue then
  begin
    with Form3.Image1 do
    begin
      .
      .
    end;
  end;
end;

besser klarkomme muß ich mal sehen. Habe dies aber auch schon oft gesehen.

[baba]

... das ist alles eine Ansichtssache und sollte jeder so machen wie er es gewohnt ist.

Da die Anzahl der Zeilen auf dem Bildschirm begrenzt ist, versuche ich den Code compact zu halten, um möglcht viel auf einmal zu sehen.

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
  if bValue then
  begin
    with Form3.Image1 do
    begin
      .
      .
    end;
  end;
end;

sähe bei mir wie folgt aus:

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
   if bValue then begin
      with Form3.Image1 do begin
      .
      end; // WENN UNÜBERSICHTLICH MIT KOMMENTAR
   end; // if bValue
end;

Baba.

[Maik81ftl]

auch keine schlechte Idee.

Bitte mal um verschiebung dieses Themas nach Dies und Das. DANKE

[baba]

auch keine schlechte Idee.

Bitte mal um verschiebung dieses Themas nach Dies und Das. DANKE

Ich habe mich auch schon gefragt wie Du auf "Multimedia" kommst.

Baba.

[Maik81ftl]

auch keine schlechte Idee.

Bitte mal um verschiebung dieses Themas nach Dies und Das. DANKE

Ich habe mich auch schon gefragt wie Du auf "Multimedia" kommst.

Baba.

beim Ursprungsthema ReadString läd keine Werte ging es noch um Kombonenten. Thema ist erst im laufe des Tages geswitcht.

[MAC]

zur übersichtlichkeit.
Ich überleg manchmal 2 tage lang nur wie ich ein programm schreibe, ganz extrem- wie übergebe ich variabelen in einen String. am anfang hab ich einen Trennstrich benutzt "/" - das wurde dann später aber nicht mehr erweiterbar - spätestens wenn ein trennstrich im eigentlichen text vorkam hatte man verloren- jetzt ist das alles xml-ähnlich aufgebaut <s<Hello>s<World>>

Mein Code ist (meiner Meinung nach) logisch aufgebaut.
Ich mache eine Einrückung vor einem Begin block; Der Code darin ist auf der gleichen ebene...

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
if bValue then // keine einrückung am anfang
   begin
   with Form3.Image1 do
      begin
      .
      .
      end;
    end
   else // else um ein block nach links verschoben , damit es etwas auffällt :)
    begin
    .
    .
    end;
end;

[Maik81ftl]

Jo der macht durchaus sin.

[pluto]

Ich überleg manchmal 2 tage lang nur wie ich ein programm schreibe, ganz extrem-

Ach, dir geht das auch so? Ich Überlege sehr häufig, wie ich etwas umsetzten soll und dann Fällt es mir auf einmal ein. und die Lösung ist in der Regel einfacher als ich Gedacht habe. Aber am meisten Fange ich immer wieder von Vorne an. Nach dem Motto: Zwei Schritte Nach von, drei Schritte zurück *G*.

[MAC]

Nach dem Motto: Zwei Schritte Nach von, drei Schritte zurück *G*.

ja, das ist einfach so, das ich mir gerade bei projekten die universal einsetzbar seien soll, also auch leicht erweritert werde sollen, ausdenken muss wie man das jetzt (am einfachsten) löst...

[pluto]

ja, das ist einfach so, das ich mir gerade bei projekten die universal einsetzbar seien soll, also auch leicht erweritert werde sollen, ausdenken muss wie man das jetzt (am einfachsten) löst...

Ja, dass ist immer das größte Problem. Ich möchte den Code auch noch nach Monaten verändern können, ohne mir eine nicht vorhandene Dokumentation durchlesen zu müssen *G*.

[Lannes]

also ich muß sagen, das ich mit dem "mehrere Anweisung in eine Zeile schreiben" kann seine Vorteile haben, Aber ich verwende diese if then wenn möglich immer so

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
  if bValue then
    begin
    with Form3.Image1 do
      begin
      .
      .
      end;
    end;
end;

da weiß ich immer, ob ich alle "End;" drinne habe und wo der anfang bzw das ende ist.

Endlich mal jemand der hier in diesem Thread den Code vernünftig formatiert.

Hatte schon die Befürchtung das jemand so einen ähnlichen Vorschlag macht:

Code: Alles auswählen

Procedure Z1(bValue: Boolean; Farben: TProgSet);
begin
  if bValue then begin with Form3.Image1 do begin
    foo;foo2;foo3;x:=0;y:=0;end;end;
end;

so kann man viel Platz sparen