Moin ...
hab das jetzt so gelöst ... gerade getestet.
Es ist nicht sehr schön und Verbesserungen werden dankbar angebommen.
Delphi-Quellcode:
unit cuf1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Datei : Textfile;
implementation
{$R *.dfm}
procedure filecheck(
const AFileName:
String);
var fFile:
file of char;
zeile:
string;
Buffer: char;
begin
AssignFile(Datei, AFileName);
{$I-}Reset(Datei);
{$I+}
if IOResult=0
then
begin
zeile:='
';
while not eof(Datei)
do
begin
Read(Datei, Buffer);
if Buffer = #$0D
then
begin
Read(Datei, Buffer);
if Buffer = #$0A
then
begin
ShowMessage('
DOS Datei');
break;
end
end;
end;
end;
CloseFile(Datei);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer ;
begin
if OpenDialog1.Execute
then
begin
filecheck(OpenDialog1.FileName);
end;
end;
end.
Hier die 2 Dateien mit denen ich getestet habe.
Gruss
ascotlx