Difference between revisions of "isAscii/de"

From Free Pascal wiki
Jump to navigationJump to search
m (consistant naming)
m (Fixed syntax highlighting; deleted category included in page template)
 
(2 intermediate revisions by 2 users not shown)
Line 1: Line 1:
 
{{isAscii}}
 
{{isAscii}}
<br>
+
 
<br>
+
 
Das Unterprogramm prüft, unabhängig vom zugrunde liegenden Betriebssystem, ob es sich um eine ASCII-Datei handelt.<br>
+
Zurück zur Seite [[code examples/de|Code Beispiele]].
<br>
+
 
<syntaxhighlight>
+
 
 +
Das Unterprogramm prüft, unabhängig vom zugrunde liegenden Betriebssystem, ob es sich um eine ASCII-Datei handelt.
 +
 
 +
 
 +
<syntaxhighlight lang=pascal>
 
uses
 
uses
 
   FileUtil, ...;
 
   FileUtil, ...;
Line 39: Line 43:
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
 
Aufruf unter Windows:
 
Aufruf unter Windows:
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang=pascal>
  
 
   ...
 
   ...
Line 51: Line 56:
  
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
 
Aufruf unter Linux:
 
Aufruf unter Linux:
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang=pascal>
  
 
   ...
 
   ...
Line 63: Line 69:
  
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 07:43, 27 August 2013 (CEST)
 
[[Category:Code Parts/de]]{{AutoCategory}}
 

Latest revision as of 07:27, 18 February 2020

Deutsch (de)


Zurück zur Seite Code Beispiele.


Das Unterprogramm prüft, unabhängig vom zugrunde liegenden Betriebssystem, ob es sich um eine ASCII-Datei handelt.


uses
  FileUtil, ...;

  ...

function isAscii(const conStrQuellDateiname: string): boolean;
var
  txtQuelldatei: file of char;
  chrZeichen: char;

begin

  Result := False;
  AssignFile(txtQuelldatei, UTF8ToSys(conStrQuellDateiname));
  Reset(txtQuelldatei);

  while not EOF(txtQuelldatei) do
  begin

    Read(txtQuelldatei, chrZeichen);

    if ((chrZeichen < #32) and (not (chrZeichen in [#9, #10, #13, #26]))) or (chrZeichen > #127) then
    begin
      closefile(txtQuelldatei);
      exit;
    end;

  end;

  Result := True;
  closefile(txtQuelldatei);

end;

Aufruf unter Windows:

  ...

  if isAscii('E:\Test.txt') = True then
    ...

  ...

Aufruf unter Linux:

  ...

  if isAscii('/home/user/Test.txt') = True then
    ...

  ...