Discussion :

[Papy214]

Dans les nouvelles versions de Delphi, c'est vrai. Après, pour le code, j'ai souvent tendance à réduire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure TForm1.OpenFile(const aFileName: string);
begin
  Caption := aFileName;
  Memo1.Lines.LoadFromFile(aFileName, TEncoding.GetEncoding(StrToInt(ComboBox1.Text)));
  Memo1.SelStart := 0;
end;

Si des intervenants ont un avis la-dessus ....

[Roland Chastain]

@Papy214
En effet, cette notation est plus concise.

J'ai ajouté à mon programme la possibilité d'exécuter le contenu du TMemo (en tant que script pour l'interpréteur cmd) et de voir le résultat. Pour cela, j'ai utilisé ces unités :

Console Application Runner Classes

Pour que les caractères accentués s'affichent correctement, j'ai utilisé la fonction OemToCharA() dont il était question au début de la discussion. Elle m'aura quand même finalement servi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function OEM2Ansi(const OEMString: AnsiString): AnsiString;
begin
  Result := OEMString;
  if Result <> '' then
    OemToCharA(PAnsiChar(Result), PAnsiChar(Result));
end;
 
procedure TForm1.OutLineEndHandler(Sender: TObject; const Line: AnsiString);
begin
  Memo2.Lines.Add(string(OEM2Ansi(Line)));
end;