Forum: Object-Pascal / Delphi-Language
by himitsu,
22. Mär 2010
Nee nee, ist schon OK so ... in unseren beiden Codes wird das Result innerhalb der Schleife andersrum behandelt.
Forum: Object-Pascal / Delphi-Language
by himitsu,
22. Mär 2010
function CheckImportFile(const fname: TFilename; const Caption:string): Boolean;
var
msg: string;
begin
Result := True; // Datei vorhanden und nicht leer
repeat
if not FileExists(fname) then
msg := Format('Datei <%s> ist nicht vorhanden', )
else if FileGetSize(fname) = 0 then
msg := Format('Datei <%s> ist leer', )
Forum: Object-Pascal / Delphi-Language
by himitsu,
22. Mär 2010
Wenn ich mich nicht irre, sollte der Compiler hier etwas vonwegen "Result könnte undefiniert sein" von sich geben.
Forum: Object-Pascal / Delphi-Language
by himitsu,
22. Mär 2010
Das bezog sich vorwiegend auf Softwarefiremen wo der Programmierer dann angestellt wäre und wo dann womöglich auch noch Mehrere an dem Projekt arbeiten.
Dort gibt es oftmals entsprechende Vorgaben, damit der Code innerhalb der Firma "gleich" aussieht und damit natürlich auch alle den Code dann besser verstehen können.
> also meist existiert da ein entsprechender Style-Guide
Forum: Object-Pascal / Delphi-Language
by himitsu,
21. Mär 2010
http://www.delphipraxis.net/internal_redirect.php?p=1062424#1062424
Tut mir ja Leid, aber ohne Goto hätte ich dort so Einiges an doppeltem Code und/oder die eine oder andere Stelle hätte etwas umständlicher gelößt werden müssen.
Und nein, bis auf wenige Stellen nutze ich auch sehr selten ein Goto, also ich kann nicht behaupten, daß ich dieses auf Krampf versuche immer zu verwenden ... wie man...
Forum: Object-Pascal / Delphi-Language
by himitsu,
21. Mär 2010
function DemoThread(p: Pointer): Integer;
var
i: Integer;
ParentHandle: THandle;
begin
ParentHandle := PThreadParams(p)^.ParentHandle;
for i := 0 to 9 do
begin
if Abort then
begin