Ich hab mir das Prog noch nicht angeschaut, wollte aber zum Code was loswerden.
Ich wollte in mir tatsächlich durchlesen, aber dein Formatierungsstil ist echt grausam.
Tust du dir selbst nicht schwer, wenn du deinen eigenen Code liest?
Zur ersten Funktion hab ich trotzdem einen alternativen Vorschlag:
Delphi-Quellcode:
function SubStr(const str:string; a, e:integer): string;
begin
result := Copy(str, a, e - a);
end;
Wobei du dir damit die Funktion SubStr wieder sparen könntest und direkt das Copy aufrufen.
grüße, daniel