unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,
TntForms, TntStdCtrls, TntButtons, TntSystem;
type TForm1 =
class(TTntForm)
Lbl_01: TTntLabel;
Btn_01: TTntBitBtn;
Edt_01: TTntEdit;
TntButton1: TTntButton;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure TntButton1Click(Sender: TObject);
private { Private-Deklarationen }
txtErrTexts :
Array of WideString;
public { Public-Deklarationen }
MaxErrTexts : Integer;
procedure ReadUnicode();
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ReadUniCode();
end;
//========================================================================
procedure TForm1.FormActivate(Sender: TObject);
var myWStr : WideString;
begin
myWStr := txtErrTexts[ 70];
Lbl_01.Caption := myWStr;
end;
//========================================================================
procedure TForm1.ReadUnicode();
var
tf : TextFile;
strLine : WideString;
fname :
String;
idx : Integer;
TntWideString
begin
//Fehlertexte
fname := '
Txt_Errors.ger';
if ( FileExists( fname))
then begin
SetLength( txtErrTexts, 0);
MaxErrTexts := 0;
AssignFile( tf, fname);
Reset( tf);
while not Eof( tf)
do begin
Readln( tf, strLine);
idx := AnsiPos( '
;', strLine);
if idx <> 1
then begin //Kommentarzeilen beginnen mit ;
if idx > 0
then strLine := Copy( strLine, 1, idx - 1);
// Alles nach ; entfernen
//strLine := AnsiDequotedStr( strLine, '"');
SetLength( txtErrTexts, MaxErrTexts + 1);
txtErrTexts[ MaxErrTexts] := WideString( strLine);
Inc( MaxErrTexts);
end;
end;
CloseFile( tf);
end;
end;
//========================================================================
procedure TForm1.TntButton1Click(Sender: TObject);
begin
Lbl_01.Caption := Edt_01.Text;
end;
end.