Hallo,
Zitat von
Hobby-Programmierer:
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;
momentan kann ich nicht folgen:
schreiben ist im Interface als Methode von Form4 deklariert. Im Implementationszeil ist sie jedoch nicht als Methode von Form4 implementiert. Es fehlt also nur das TForm4 vor der Methode schreiben im Implementationsteil. Man kann natürlich die Methode schreiben aus der Klasse herausnehmen um ihr dann die Klasse als Parameter zu übergeben und dann mit with zu arbeiten, um wiederum Schreibarbeit zu sparen, aber wäre das TForm4. vor der Methode schreiben hier nicht eventuell doch die bessere Lösung?
Ansonsten müsste die Methode schreiben der Klasse TForm4 jedenfalls noch implementiert werden bzw. im Interfaceteil wieder entfernt werden.