If Anweisung... Block?

[marabu]

Hallo,

hier mein Vorschlag:

Delphi-Quellcode:

var
  fn: TFileName;
  n, iFaktor: Integer;
  sTyp: String;

begin
  if (ParamCount <> 2)
  or not TryStrToInt(ParamStr(2), n)
  or (n < 0) then
  begin
    WriteLn(Usage);
    Halt;
  end;

  fn := ChangeFileExt(ParamStr(0), '.txt');
  sTyp := ParamStr(1);

  with TStringList.Create do
  try
    LoadFromFile(fn);
    Sorted := True;
    if TryStrToInt(Values[sTyp], iFaktor) then
      WriteLn(iFaktor * n);
  finally
    Free;
  end;
end.

Lässt sich leicht auf interaktiv umbauen. Die Steuerdatei steckt im Anhang.

Freundliche Grüße