Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Neutral General,
14. Mai 2010
Wenn sie von mir Code haben will, dann bekommt sie um jede Zeile ein try-finally wenn sie will xD
Wenn sie Code von mir findet, dann ist das ja nicht mein Problem wenn die den 1:1 übernehmen und 1 try-finally fehlt ^^
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Neutral General,
14. Mai 2010
Jaaa.. Natürlich KANN etwas passieren. Aber 3 try-finally Blöcke. Das sieht ja schrecklich aus und da blickt man doch nicht mehr durch :shock:
Naja meinetwegen. Richtiger ist deine Version .. schon. Stimmt schon. Aber wenn ich jetzt keine Software für die NASA schreibe oder so werde ich glaube ich ganz fahrlässig darauf verzichten :mrgreen:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Neutral General,
14. Mai 2010
Hi,
Du machst also wenn du 3 Klassen erstellst 3 try-finally Blöcke? Finde ich etwas übertrieben. Beim erstellen eines Objekts SOLLTE eigentlich nichts schief gehen...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Neutral General,
14. Mai 2010
Verbesserungsvorschlag:
function ByteCompFiles(const aSourceFile, aDestFile: String): Boolean;
var SourceFile, DestFile: TMemoryStream;
begin
SourceFile := TMemoryStream.Create;
DestFile := TMemoryStream.Create;
try
SourceFile.LoadFromFile(aSourceFile);
DestFile.LoadFromFile(aDestFile);