Logisches problem

[xZise]

Hi Sascha...

Mir sind zwei sachen aufgefallen!

1. Du siehst nicht sofort, was wann und wie oft aufgerufen wird!
   
   Delphi-Quellcode:

   for x:= 0 to StringGrid1.ColCount-1 do
   for y:= 0 to StringGrid1.RowCount-1 do
   Vertrpl.Add(StringGrid1.Cells[x,y]);
   for x:= 0 to StringGrid1.ColCount-1 do
   Vertrpl.Add(IntToStr(StringGrid1.ColWidths[x]));
   for x:= 0 to StringGrid1.RowCount-1 do
   Vertrpl.Add(IntToStr(StringGrid1.RowHeights[x]));

   Deshalb sollte man immer schön einrücken:
   
   Delphi-Quellcode:

   for x:= 0 to StringGrid1.ColCount-1 do
     for y:= 0 to StringGrid1.RowCount-1 do
       Vertrpl.Add(StringGrid1.Cells[x,y]);  // Dieser Code wird von den beiden for-Schleifen ausgeführt
   for x:= 0 to StringGrid1.ColCount-1 do
     Vertrpl.Add(IntToStr(StringGrid1.ColWidths[x]));
   for x:= 0 to StringGrid1.RowCount-1 do
     Vertrpl.Add(IntToStr(StringGrid1.RowHeights[x]));

2. wenn man if not myInt = 1 then macht, dann ist es imho so, dass er nicht überprüft ob "myInt" nicht 1 ist.
   Deshalb hier entweder den Vergleichsoperator negieren, oder mit Klammern arbeiten:
   if myInt <> 1 then if not(myInt = 1) then

PS: Die Einrückung beeinflusst nicht die Exe Also kann man einrück wie man will, solange es leserlich bleibt.

Zitat von Jürgen Thomas:

ich weigere mich, so einen Quelltext zu untersuchen. Korrigiere doch bitte alle Einrückungen, sodass jedes begin am Anfang eines Teilstücks steht, der darin enthaltene Text exakt 2 Zeichen eingerückt ist und jedes end exakt unter dem dazugehörigen begin steht. Genauso sollten alle if-then-else sauber positioniert werden.

Du hast zwar recht, aber es bleibt jeden selber überlassen wie ein Einrückt!
Ich habe auch oft "if ... then begin" geschrieben, und das "end" auf Höhe von "if" geschrieben

PS: Es stimmt schon dass der Code sehr unleserlich ist ^^

Zitat von fuknersascha:

Was war damit gemeint

Zitat:

Wo war der rote Kasten?!

Unten in der "Postchronik", werden Posts, die während des schreibens hinzukommen rot markiert (jedenfalls sollten sie es ^^)

Zitat von fuknersascha:

Aber ich glaube #6 ist auch nicht so ganz richtig aber es ist aufjedenfall lesbarer

Editiere doch den Eingangspost

[edit]Wenn ich es richtig verstanden habe, dann überprüft ob "IndexOf(ComboBox4.Text)" "-1" ist. Wenn es so ist, dann kannst du das machen, was gemacht werden soll, wenn ein Eintrag nicht existiert. Ansonsten das andere ausführen ^^[/edit]