1-Byte-Char in BDS2010

[DeddyH]

Das macht in dem Zusammenhang aber auch keinen Sinn, was soll denn dann gespeichert werden? Naja, egal, das "var" weg (und vielleicht TStringlist durch TStrings ersetzen) und gut is

[Iwo Asnet]

Zitat von DeddyH:

...und gut is

Nen Class Helper draus machen und 'besser' is?

[DeddyH]

Class Helper für welche Klasse?

[vagtler]

Zitat von DeddyH:

Class Helper für welche Klasse?

Lass mal raten: TStrings?

[DeddyH]

Wenn es sonst niemand macht:

Delphi-Quellcode:

type
  TStringsCodePageHelper = class helper for TStrings
  public
    procedure ConvertFileCodePage(const Filename: string; FromCP, ToCP: Integer);
    procedure LoadFileWithEncoding(const Filename: String; CodePage: Integer);
    procedure SaveFileWithEncoding(const Filename: String; CodePage: Integer);
  end;

procedure TStringsCodePageHelper.ConvertFileCodePage(const Filename: string; FromCP,
  ToCP: Integer);
begin
  LoadFileWithEncoding(Filename, FromCP);
  SaveFileWithEncoding(Filename, ToCP);
end;

procedure TStringsCodePageHelper.LoadFileWithEncoding(const Filename: String;
  CodePage: Integer);
var
  Encoding: TEncoding;
begin
  Encoding := TEncoding.GetEncoding(CodePage);
  try
    LoadFromFile(Filename, Encoding);
  finally
    Encoding.Free;
  end;
end;

procedure TStringsCodePageHelper.SaveFileWithEncoding(const Filename: String;
  CodePage: Integer);
var
  Encoding: TEncoding;
begin
  Encoding := TEncoding.GetEncoding(CodePage);
  try
    SaveToFile(Filename, Encoding);
  finally
    Encoding.Free;
  end;
end;

Vielleicht könnte man künftig den schlauen Worten dann aber auch selbst Taten folgen lassen.

[himitsu]

PS: LoadFromFile kennt noch einen Encoding-Parameter, welchen man vielleicht sogar verwenden könnte.