Sysutils light?

[HalloDu]

Ja, alle paar Wochen gibts so einen Thread,

entweder macht er halt NoVCL, was als Übung nett ist, aber meiner Meinung nach im produktivbetrieb viel zu umständlich ist,

oder er findet sich mit der Größe ab, was heute überhaupt kein Problem mehr ist.

[edit] Tja, da sieht man nochmal wie trivial das ist @Grenzgänger [/edit]

[stOrM]

Ok ich entschuldige mich, dass ich überhaupt die Frechheit hatte danach zu fragen...
Mal im ernst, manchmal verstehe ich das hier nicht wirklich, dass war doch eine ganz normale Frage, es wird ja keiner gezwungen dazu eine Antwort zu erstellen, von mir schon mal gar nicht...

Wenn keine Alternative gibt, gut ist es eben so, aber nun weiß ich es ja auch und kann damit umgehen (naja oder muß halt damit leben)...

Trotzdem vielen Dank für eure Mühe!
s!

[Sidewinder]

sorry... klar ist es eine normale frage..
ich geh bei so einem Thema nur immer gleich die wand hoch... sorry..

[Luckie]

Zitat von Neutral General:

Da gibts z.B. auch noch SysErrorMessage. Sehr nützlich. Allerdings kann man die nicht mal grad so nachprogrammieren.

SysErrorMessage ist auch nur eine Kapselung der API-Funktion FormatMessageW:

Delphi-Quellcode:

function SysErrorMessage(ErrorCode: Integer): WideString;

  function MAKELANGID(usPrimaryLanguage, usSubLanguage: BYTE): WORD;
  begin
    Result := (usSubLanguage shl 10) or usPrimaryLanguage;
  end;
var
  MsgBuffer         : array[0..2047] of WideChar;
  len               : Integer;
begin
  len := FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM, nil, ErrorCode, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
    MsgBuffer, sizeof(MsgBuffer), nil);
  if len > 0 then
  begin
    SetString(Result, MsgBuffer, len);
  end
  else
    Result := '';
end;

Ansonsten habe ich noch auf meiner Homepage eine abgespeckte SysUtils.pas -> MpuTools.pas. Da sind aber auf der anderen Seite auch wieder viele Funktionen drin, die Borland in andere Units gepackt hatte, wie die Dielaoge zum auswählen einer Datei zum Beispiel.

[Sidewinder]

Lukie hat geschrieben

Zitat:

Ansonsten habe ich noch auf meiner Homepage eine abgespeckte SysUtils.pas -> MpuTools.pas. Da sind aber auf der anderen Seite auch wieder viele Funktionen drin, die Borland in andere Units gepackt hatte, wie die Dielaoge zum auswählen einer Datei zum Beispiel.

Genau das ist das problem, jeder der eine solche "Special"-Unit geschrieben hat,
hat sie an SEINE bedürfnisse angepasst...
Wenn also jemand eine solche unit haben will muss er sie selbst schreiben
oder eine andere umschreiben...

[grenzgaenger]

keine panik, alle die schon länger mit bei sind. haben solche funktionen schon geschrieben... die sysutils kam glaub ich erst in richtung D3 oder so ähnlich ...

zuvor, durfte man sich die zahlen selbst formatieren und die ganzen scherze ..

aber wie ich schon an anderer stelle schrieb, ist diese unit auch in anderen eingebunden... und wenn man sie wirklich eliminieren möcht, wird das ein grösserer aufwand ... da kann NG mit seinen hobby projekt punkten... vorausgesetzt er hat auf die sysutils verzichtet

[turboPASCAL]

[OT]

Ich muss ja immer etwas Schmunzeln wenn Programierer sich die Mühe machen
die Sysutils "rauszu schmeissen", wegen einer zB. TStringList o.ä. Sachen
dann doch die Unit Classes oder Graphics einbinden...

Die SysUtils ist auch für nonVCL brauchbat, es sei denn man kann auf
die Funktionen der Unit, wie zB. Fehlerbehandlung verzichten.

[/OT]

[Hansa]

Ich glaube, es ist einigen noch nicht klar, wieviel Zeit sie verschwenden "irgendwas rauszuschmeißen". Insbesondere nicht über die Konsequenzen. Habe hier jetzt ein Mega-Programm.

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit1;

interface

uses
  Forms;

type
  TForm1 = class(TForm)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Und dieses Ding ist 361 KB groß. Wie man sieht ist keine SysUtils drin, nur "Forms". Anfangs war da noch Classes u.a. von Delphi automatisch eingefügt worden. Wie groß war die EXE damit ? 361 KB. Um da jetzt noch abzuspecken, dann könnte ich folgendes machen :

• Form wird per CreateWindow etc. erzeugt
• Komponenten einfach auf die Form ziehen ? entfällt.
• ich verzichte auch darauf, diese visuell anzuordnen
• Objektinspektor fällt auch weg
• Codevervollständigung ? Wer braucht denn das. Weg damit.
• SysUtils, DateUtils usw. ? Schreibe ich mir selber. Schaltjahr auch kein Problem.
• Fehlerbehandlung oder irgendein EventHandler ? pah, mir egal

Jetzt habe ich aber einen Riesenvorteil, weil meine EXE nur noch 200 KB hat. Kopierzeiten haben sich tatsächlich um 50 % verkürzt. Von 0,1 s auf 0,05 s. Und auf meine Diskette kriege ich jetzt statt 4 Programme sogar 7.

[grenzgaenger]

Zitat von Hansa:

Und dieses Ding ist 361 KB groß. Wie man sieht ist keine SysUtils drin, nur "Forms".

nicht ganz richtig, über die unit forms, wird dann auch z.b. die units SysUtils, Classes wieder eingebunden... . das heisst dann, die komplette VCL müsste neu entwickelt werden...

[smallsmoker]

Zitat:

nicht ganz richtig, über die unit forms, wird dann auch z.b. die units SysUtils, Classes wieder eingebunden... Wink . das heisst dann, die komplette VCL müsste neu entwickelt werden...

was bei einem nicht so erfahrenem programmierer , wie mir, nicht nur ein ding der unmöglichkeit wäre sondern auch noch zu einer vermutlich noch größeren dateigröße führen würde
mfg smallsmoker