Difference between revisions of "ubuntu kernelversion number/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m |
||
Line 16: | Line 16: | ||
begin | begin | ||
Assignfile(txtDatei, '/proc/version'); //Weist txtDatei die Datei zu | Assignfile(txtDatei, '/proc/version'); //Weist txtDatei die Datei zu | ||
− | reset(txtDatei); //Öffnet die Datei zum | + | reset(txtDatei); //Öffnet die Datei zum Lesen |
readln(txtDatei, Result); //liest die erste Zeile | readln(txtDatei, Result); //liest die erste Zeile | ||
Closefile(txtDatei); //Schließt die Datei | Closefile(txtDatei); //Schließt die Datei |
Revision as of 17:58, 5 September 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)