Difference between revisions of "ubuntu kernelversion number/de"

From Lazarus wiki
Jump to navigationJump to search
(Created page with "{{ubuntu kernelversion number}} <br> <br> Dieser Artikel beschäftigt sich mit der Linuxprogrammierung (Ubuntu).<br> Die Prozedur ermittelt die aktuelle Versionsnummer des Ker...")
 
m
Line 58: Line 58:
 
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 06:14, 29 May 2013 (UTC)
 
--[[User:Olaf|Olaf]] 06:14, 29 May 2013 (UTC)
[[Category:Code Parts/de]]
+
[[Category:Code Parts/de]]{{AutoCategory}}

Revision as of 13:17, 29 August 2013

Deutsch (de)

Dieser Artikel beschäftigt sich mit der Linuxprogrammierung (Ubuntu).
Die Prozedur ermittelt die aktuelle Versionsnummer des Kernels.

uses
  SysUtils, ...;

  ...

function funLeseDatei: string;
var
  txtDatei: Textfile;
begin
  Assignfile(txtDatei, '/proc/version'); //Weist txtDatei die Datei zu
  reset(txtDatei); //Öffnet die Datei zum lesen
  readln(txtDatei, Result); //liest die erste Zeile
  Closefile(txtDatei); //Schließt die Datei
end;


function funKernelversionsNummer: string;
var
  intI: integer = 0;
  intZaehler: integer = 0;
  strProcVersion: string = '';

begin

  Result := '';

  strProcVersion := funLeseDatei;
  if strProcVersion = '' then
    exit;

  for intI := 1 to Length(strProcVersion) do
  begin

    if (strProcVersion[intI] = '-') then
    begin
      intZaehler := intZaehler + 1;
      if intZaehler > 1 then break;
    end;

    if (strProcVersion[intI] in ['0'..'9', '.', '-']) then
      Result := Result + strProcVersion[intI];

  end;

end;
  
  ...



--Olaf 06:14, 29 May 2013 (UTC)