was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

36 Visitors Online


 
...überprüfen, ob eine Datei îm ASCII Format ist?
Autor: Fabio Cillo
Homepage: http://web.tiscalinet.it/fabiocillo
[ Tip ausdrucken ]  

Tip Bewertung (4):  
     


function isAscii(NomeFile: string): Boolean;
const
  
SETT = 2048;
var
  
i: Integer;
  F: file;
  a: Boolean;
  TotSize, IncSize, ReadSize: Integer;
  c: array[0..Sett] of Byte;
begin
  if 
FileExists(NomeFile) then
  begin
    
{$I-}
    
AssignFile(F, NomeFile);
    Reset(F, 1);
    TotSize := FileSize(F);
    IncSize := 0;
    a       := True;
    while (IncSize < TotSize) and (a = True) do
    begin
      
ReadSize := SETT;
      if IncSize + ReadSize > TotSize then ReadSize := TotSize - IncSize;
      IncSize := IncSize + ReadSize;
      BlockRead(F, c, ReadSize);
      // Iterate
      
for i := 0 to ReadSize - 1 do
        if 
(c[i] < 32) and (not (c[i] in [9, 10, 13, 26])) then a := False;
    end{ while }
    
CloseFile(F);
    {$I+}
    
if IOResult <> 0 then Result := False
    else 
      
Result := a;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if 
OpenDialog1.Execute then
    if 
isAscii(OpenDialog1.FileName) then
      
ShowMessage('ASCII File');
end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners