AnsiLastChar in NonVCL

[Uncle Cracker]

Und schon wieder ich mit einer NonVCL Frage:

Gibt es eine nonVCL-Funtkion für AnsiLastChar, ich möchte nicht die riesige SysUtils Unit einbinden. Habe schon überall gesucht, aber leider nix gefunden

Vielleicht kann mir jemand weiterhelfen.


Danke UC

[Luckie]

Was hast du für ein Delphi? Ab der Professional sind doch die Sourcen mit dabei.

Delphi-Quellcode:

function AnsiLastChar(const : string): PChar;
begin
  result := @s[length(s)-1]
end;

Aber so in der Art sollte es aussehen.

Übrigens hat die SysUtils nichts mit VCL oder nonVCL zu tun, da sie ja keine visuellen Komponenten bereitstellt. Sie enthält einfach nur nützliche Routinen, mehr nicht.

[MathiasSimmack]

Aber leider bläst sie das Programm auch um gut 30/40k auf.

[Uncle Cracker]

Danke, hat funktioniert.

Das Problem ist wirklich, dass wenn man SysUtils mit einbindet, dass die Datei 40 KB größer wird und das wollte ich somit verhindern, nun ist die Datei nur noch 8 KB groß.