Zitat von
Fussball-Robby:
Zitat von
Hobby-Programmierer:
Delphi-Quellcode:
with Form4 do begin
...
end;
Das ist ziemlich schlechter Stil. Wenn die Möglichkeit besteht, aus einer Prozedur die Methode einer Klasse zu machen (wie bereits gesagt: TForm4.Prozedurenname usw), sollte man diese auch nutzen.
Aha, du siehst wen ich zitiert habe
und sehr wohl finde ich das
with Form4 do
besser ist als 20zig mal
Form4.XXX.Caption
aufzurufen. Ausserdem war ich der Meinung das diese Prozedure später in eine seperate
Unit auslagert. Vielleicht geht es aber auch so um die Referenz auf die Klasse zu gewährleisten.
Delphi-Quellcode:
procedure schreiben(MyForm: TForm;var ZeilenIndex:integer;ausgstrDNA, ausgstrmRNA : string);
begin
case ZeilenIndex of
0: begin
MyForm.LblDNA1.caption := MyForm.LblDNA1.Caption + ausgstrDNA;
MyForm.LblmRNA1.Caption := MyForm.LblmRNA1.Caption + ausgstrmRNA;
end;
....
end;
end;
Aber innerhalb einer
Unit hast du natürlich Recht, da ist das Quatsch.