SJ MMF File Reader 0.2 - Schneller Textdatei Reader

[Jens01]

Hier noch einige Erweiterungen. Vielleicht sind sie hilfreich.

Delphi-Quellcode:

uses
  .., AnsiStrings, Math;

procedure TSJMmfFileReader.ReadlnFloat(var AValue: Double);
var
  s: string;
begin
  Readln(s);
  if ContainsText(UpperCase(s), '+INF') then
  begin
    AValue := Infinity;
    Exit;
  end;
  if ContainsText(UpperCase(s), '-INF') then
  begin
    AValue := NegInfinity;
    Exit;
  end;
  if ContainsText(UpperCase(s), 'NAN') then
  begin
    AValue := NaN;
    Exit;
  end;
  s := StringReplace(s, '.', ',', [rfReplaceAll]);
  AValue := StrToFloat(s);
end;

Delphi-Quellcode:

procedure TSJMmfFileReader.ReadlnBool(var AValue: Boolean);
var
  s: string;
begin
  Readln(s);
  if UpperCase(s) = 'TRUE' then
    AValue := True;
  if UpperCase(s) = 'FALSE' then
    AValue := False;
end;

Delphi-Quellcode:

procedure TSJMmfFileReader.ReadlnInt(var AValue: Integer);
var
  s: string;
begin
  Readln(s);

  AValue := StrToInt(s);
end;