Was passiert hier?

[Christian Seehase]

Moin Steppo,

erst einmal herzlich willkommen.

Delphi-Quellcode:

// Es wird eine Funktion ohne Parameter deklariert, die einen String als Ergebnis zurückliefert
function CurrentComputerName: string;

// Beginn Variablendeklaration
var 
  // Die Variable a wird als eine eindimensionale Tabelle vom Typ Char (Zeichen) mit 256 Einträgen deklariert
  // jeder Eintrag kann direkt über a[0] bis a[255] angesprochen werden
  // Ein array of Char entspricht, im Wesentlichen, einem String
  a: array[0..255] of Char; 
  // Die Variable b wird als ganze Zahl ohne Vorzeichen mit einer Grösse von 32 Bit deklariert (Wertebereich 0 bis 4294967295)
  b: Dword; 

  // Beginn des Funktionsablaufes
begin 
  // b erhält als Wert die Anzahl Byte, die von a belegt werden, also 256
  b := SizeOf(a); 
  // GetComputerName ist eine Windows API Funktion, die den Namen des Rechners ausliest, auf dem sie ausgeführt wird
  // Vor Ausführung der Funktion sollte der erste Parameter leer sein (am Besten mit binär 0 gefüllt), 
  // und der zweite Parameter muss die Anzahl Zeichen enthalten, die der erste Parameter aufnehmen kann
  // Nach Ausführung der Funktion enthält der erste Parameter den Namen des Rechners, als nullterminierten String,
  // dass heist das Ende des Strings wird durch eine binäre 0 gekennzeichnet, 
  // und der zweite Parameter enthält die Anzahl Zeichen, aus denen der Rechnername besteht
  GetComputerName(a, b); 
  // Das ausgelesene Ergebnis wird als Rückgabewert für die Funktion gesetzt
  // Bei einer Funktionsdeklaration existiert die Variable Result immer, und ist vom Typ des Rückgabewertes der Funktion
  Result := a; 
end;

War's das, was Du wissen wolltest?