summaryrefslogtreecommitdiff
path: root/tools/langpackmgr/Unit1.pas
diff options
context:
space:
mode:
Diffstat (limited to 'tools/langpackmgr/Unit1.pas')
-rw-r--r--tools/langpackmgr/Unit1.pas358
1 files changed, 175 insertions, 183 deletions
diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index 59c76c06b0..2ddb8f0be7 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -9,28 +9,28 @@ uses
type
TForm1 = class(TForm)
Label1: TLabel;
- ListBox1: TListBox;
- OpenDialog1: TOpenDialog;
+ Label2: TLabel;
+ Label3: TLabel;
Edit1: TEdit;
+ Edit2: TEdit;
+ Edit3: TEdit;
Button1: TButton;
Button2: TButton;
+ Button3: TButton;
+ ListBox1: TListBox;
+ OpenDialog1: TOpenDialog;
C: TBitBtn;
X: TBitBtn;
- Label2: TLabel;
- Edit2: TEdit;
- Edit3: TEdit;
- Label3: TLabel;
- Button3: TButton;
- procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
+ procedure Button1Click(Sender: TObject);
+ procedure Button2Click(Sender: TObject);
+ procedure Button3Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
+ procedure CClick(Sender: TObject);
+ procedure XClick(Sender: TObject);
procedure refresh;
procedure read;
procedure enter(Sender: TObject; var Key: Word; Shift: TShiftState);
- procedure CClick(Sender: TObject);
- procedure XClick(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
private
{ Private declarations }
@@ -41,27 +41,156 @@ type
var
Form1: TForm1;
openDialog : TOpenDialog;
- full: array [1..7000] of string;
+ full,ustring,tstring,fline,dupes: array [1..7000] of string;
notranslate: array [1..7000] of integer;
- ustring,tstring: array [1..7000] of string;
- fline:array [1..2,1..7000] of string;
- english,translate: textfile;
- line:string;
+ translate: textfile;
+ bom, bomd, line:string;
ii,i,it,ie:integer;
- bom, bomd:string;
- dupes: array [1..7000] of string;
idx,idm:integer;
cores:boolean;
implementation
{$R *.dfm}
-procedure tform1.read;
+// Открытие файла
+procedure TForm1.Button1Click(Sender: TObject);
+ begin
+ chdir(ExtractFilePath(Application.ExeName));
+ chdir('..');
+ openDialog := TOpenDialog.Create(self);
+ openDialog.Filter := 'Text files only|*.txt';
+ openDialog.InitialDir :=GetCurrentDir ;
+ openDialog.Options := [ofFileMustExist];
+ if (openDialog.Execute)
+ and(extractfilename(openDialog.filename)<>'=HEAD=.txt')
+ and(extractfilename(openDialog.filename)<>'=DUPES=.txt')
+then
+ begin
+ edit1.Text:=copy(openDialog.filename,
+ length(ExtractFilePath(Application.ExeName))-4,
+ length(openDialog.filename)-length(ExtractFilePath(Application.ExeName))+5);
+ read;
+ refresh;
+ end;
+end;
+
+// Процедура сохранения обработанного файла
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+refresh;
+assignfile(translate,opendialog.filename,CP_UTF8);
+rewrite(translate);
+writeLn(translate, bom);
+ for i := 1 to ie do
+ begin
+ if copy(ustring[i],1,1)=';' then writeln(translate,ustring[i]);
+ if (copy(ustring[i],1,1)='[') and (tstring[i]<>'')
+ then begin
+ cores:=false;
+ if Button3.caption='DUPES ON' then
+ for idx := 1 to idm do
+ if (copy(dupes[idx],1,1)='[')
+ and (dupes[idx]=ustring[i])
+ then cores:=true;
+ if cores=false then
+ begin
+ writeln(translate,ustring[i]);
+ writeln(translate,tstring[i]);
+ end;
+ end;
+ end;
+closefile(translate);
+
+// Процедура пересохранения файла =DUPES=
+ if (extractfilename(openDialog.filename)='=CORE=.txt')
+ and (FileExists(ExtractFilePath(opendialog.filename)+'=DUPES=.txt')=true)
+ then
+ begin
+assignfile(translate,ExtractFilePath(opendialog.filename)+'=DUPES=.txt',CP_UTF8);
+rewrite(translate);
+writeLn(translate, bomd);
+//
+// Если строка отсутствует в =СORE=, она запишется в =DUPES=
+for idx := 1 to idm do
+if (copy(dupes[idx],1,1)='[') then
+ begin cores:=false;
+ for i := 1 to ie do
+ if dupes[idx]=ustring[i] then cores:=true;
+ if cores=true then begin
+ writeLn(translate, dupes[idx]);
+ writeLn(translate, dupes[idx+1]);
+ end;
+ end;
+closefile(translate);
+ end;
+//
+ read;
+end;
+
+// Выключение фильтра повторяющихся строк
+procedure TForm1.Button3Click(Sender: TObject);
begin
+if edit1.Text<>'' then
+If Button3.Caption='DUPES OFF'
+then Button3.Caption:='DUPES ON'
+else Button3.Caption:='DUPES OFF';
+refresh;read;refresh;
+end;
+procedure TForm1.CClick(Sender: TObject);
+begin
+ Edit3.text:=edit2.text;
+end;
+
+procedure TForm1.XClick(Sender: TObject);
+begin
+ Edit3.text:='';
+ tstring[notranslate[strtoint(label2.caption)]]:='';
+ refresh;
+end;
+
+procedure TForm1.enter(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+case key of
+ vk_return,vk_down: if listbox1.ItemIndex<listbox1.Items.Count then
+ listbox1.ItemIndex:=listbox1.ItemIndex+1;
+ vk_up: if listbox1.ItemIndex>0 then
+ listbox1.ItemIndex:=listbox1.ItemIndex-1;
+end;
+refresh;
+end;
+
+procedure TForm1.ListBox1Click(Sender: TObject);
+begin
+ refresh;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+ KeyPreview := True;
+end;
+
+procedure tform1.refresh;
+var n:integer;
+begin
+n:=strtoint(label2.caption);
+line:=edit3.Text;
+if length(line)<>0 then
+tstring[notranslate[n]]:=line;
+label2.Caption:=inttostr(ListBox1.ItemIndex+1);
+n:=strtoint(label2.caption);
+edit2.Text:=copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2);
+edit2.SelectAll;
+edit2.CopyToClipboard;
+edit3.Text:=tstring[notranslate[n]];
+edit3.SetFocus;
+end;
+
+procedure tform1.read;
+begin
if extractfilename(opendialog.filename)='=CORE=.txt'
then button3.Visible:=false
else button3.Visible:=true;
-
listbox1.Items.Clear;
line:='';
edit3.Text:='';
@@ -69,11 +198,11 @@ else button3.Visible:=true;
begin
full[i]:='';
dupes[i]:='';
- notranslate[i]:=0;
- ustring[i]:='';
- tstring[i]:='';
+ notranslate[i]:=0;
+ ustring[i]:='';
+ tstring[i]:='';
end;
-
+// Считывание выбранного файла в full[it]
assignfile(translate,opendialog.filename,CP_UTF8);
reset(translate);
it:=0;
@@ -85,15 +214,19 @@ else button3.Visible:=true;
it:=it+1;
full[it]:=line;
ReadLn(translate, line);
- if (copy(line,1,1)<>'')and(copy(line,1,1)<>';')and(copy(line,1,1)<>'[')then
- begin
- it:=it+1;
- full[it]:=line;
- end else it:=it-1;
+ if (copy(line,1,1)<>'')
+ and(copy(line,1,1)<>';')
+ and(copy(line,1,1)<>'[')
+ then begin
+ it:=it+1;
+ full[it]:=line;
+ end
+ else it:=it-1;
end;
end;
closefile(translate);
+// Считывание файла повторяющихся строк в dupes[idm]
idm:=0;
if FileExists(ExtractFilePath(opendialog.filename)+'=DUPES=.txt')=true then
begin
@@ -115,7 +248,7 @@ reset(translate);
end;
closefile(translate);
end;
-
+// то же, если =DUPES= находится на директорию выше
if FileExists(ExtractFilePath(opendialog.filename)+'\..\=DUPES=.txt')=true then
begin
assignfile(translate,ExtractFilePath(opendialog.filename)+'\..\=DUPES=.txt',CP_UTF8);
@@ -135,14 +268,14 @@ reset(translate);
end;
closefile(translate);
end;
-
if extractfilename(opendialog.filename)='=CORE=.txt' then
begin
-assignfile(english,ExtractFilePath(Application.ExeName)+
+assignfile(translate,ExtractFilePath(Application.ExeName)+
'\..\english\'+extractfilename(opendialog.filename),CP_UTF8);
end
else
begin
+// если обрабатываемый файл - не =CORE=, повторяющиеся строки считываются и из него.
assignfile(translate,ExtractFilePath(opendialog.filename)+'\..\=CORE=.txt',CP_UTF8);
reset(translate);
while not Eof(translate) do
@@ -161,180 +294,39 @@ reset(translate);
end;
end;
closefile(translate);
-
-assignfile(english,ExtractFilePath(Application.ExeName)+
+assignfile(translate,ExtractFilePath(Application.ExeName)+
'\..\english\plugins\'+extractfilename(opendialog.filename),CP_UTF8);
end;
- reset(english);
- ReadLn(english, bom);
+ reset(translate);
+ ReadLn(translate, bom);
ie:=0;
-while not Eof(english) do
+while not Eof(translate) do
begin
- ReadLn(english, line);
+ ReadLn(translate, line);
ie:=ie+1;
ustring[ie]:=line;
end;
- closefile(english);
-
+ closefile(translate);
for i := 1 to ie do
-begin
for ii:= 1 to it-1 do
-if ustring[i]=full[ii] then tstring[i]:=full[ii+1];
-if copy(ustring[i],1,1)=';' then tstring[i]:=ustring[i];
-end;
+ if ustring[i]=full[ii]
+ then tstring[i]:=full[ii+1];
for i := 1 to ie do
-if tstring[i]='' then
+if (copy(ustring[i],1,1)='[') and (tstring[i]='') then
begin
-
if (extractfilename(opendialog.filename)='=CORE=.txt') and (idm>0) then
for idx := 1 to idm do
if dupes[idx]=ustring[i] then tstring[i]:=dupes[idx+1];
-
if (extractfilename(opendialog.filename)<>'=CORE=.txt') and (idm>0)
and (button3.Caption='DUPES ON') then
for idx := 1 to idm do
if dupes[idx]=ustring[i] then tstring[i]:=dupes[idx+1];
-
if tstring[i]='' then
begin
listbox1.Items.Add(ustring[i]);
notranslate[listbox1.Items.Count]:=i;
end;
end;
-
label3.caption:='Untranslate:'+inttostr(listbox1.Items.Count)+' lines.';
end;
-
-
-procedure tform1.refresh;
-var n:integer;
-begin
-n:=strtoint(label2.caption);
-line:=edit3.Text;
-if length(line)<>0 then
-tstring[notranslate[n]]:=line;
-label2.Caption:=inttostr(ListBox1.ItemIndex+1);
-n:=strtoint(label2.caption);
-edit2.Text:=copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2);
-edit2.SelectAll;
-edit2.CopyToClipboard;
-edit3.Text:=tstring[notranslate[n]];
-edit3.SetFocus;
-end;
-
-
-
-procedure TForm1.Button1Click(Sender: TObject);
- begin
- chdir(ExtractFilePath(Application.ExeName));
- chdir('..');
- openDialog := TOpenDialog.Create(self);
- openDialog.Filter := 'Text files only|*.txt';
- openDialog.InitialDir :=GetCurrentDir ;
- openDialog.Options := [ofFileMustExist];
- if (openDialog.Execute)
- and(extractfilename(openDialog.filename)<>'=HEAD=.txt')
- and(extractfilename(openDialog.filename)<>'=DUPES=.txt')
- and(extractfilename(openDialog.filename)<>'untranslated.txt')
-then
- begin
- edit1.Text:=copy(openDialog.filename,
- length(ExtractFilePath(Application.ExeName))-4,
- length(openDialog.filename)-length(ExtractFilePath(Application.ExeName))+5);
- read;
- refresh;
- end;
-end;
-
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
-refresh;
-assignfile(translate,opendialog.filename,CP_UTF8);
-rewrite(translate);
-writeLn(translate, bom);
- for i := 1 to ie do
- if tstring[i]<>'' then
- begin
-cores:=false;
- for idx := 1 to idm do
-if (copy(dupes[idx],1,1)='[')
-and (dupes[idx]=ustring[i])
-and (Button3.caption='DUPES ON')
- then cores:=true;
- if cores=false then
- begin
- writeln(translate,ustring[i]);
- if copy(ustring[i],1,1)<>';' then
- writeln(translate,tstring[i]);
- end;
- end;
-closefile(translate);
-
- if (extractfilename(openDialog.filename)='=CORE=.txt')
- and (FileExists(ExtractFilePath(opendialog.filename)+'=DUPES=.txt')=true)
- then
- begin
-assignfile(translate,ExtractFilePath(opendialog.filename)+'=DUPES=.txt',CP_UTF8);
-rewrite(translate);
-writeLn(translate, bomd);
-for idx := 1 to idm do
-if (copy(dupes[idx],1,1)='[') then
- begin cores:=false;
- for i := 1 to ie do
- if dupes[idx]=ustring[i] then cores:=true;
- if cores=true then begin
- writeLn(translate, dupes[idx]);
- writeLn(translate, dupes[idx+1]);
- end;
- end;
-closefile(translate);
- end;
- read;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
-if edit1.Text<>'' then
-If Button3.Caption='DUPES OFF'
-then Button3.Caption:='DUPES ON'
-else Button3.Caption:='DUPES OFF';
-refresh;read;refresh;
-end;
-
-procedure TForm1.CClick(Sender: TObject);
-begin
- Edit3.text:=edit2.text;
-end;
-
-procedure TForm1.XClick(Sender: TObject);
-begin
- Edit3.text:='';
- tstring[notranslate[strtoint(label2.caption)]]:='';
- refresh;
-end;
-
-procedure TForm1.enter(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
-case key of
- vk_return,vk_down: if listbox1.ItemIndex<listbox1.Items.Count then
- listbox1.ItemIndex:=listbox1.ItemIndex+1;
- vk_up: if listbox1.ItemIndex>0 then
- listbox1.ItemIndex:=listbox1.ItemIndex-1;
-end;
-refresh;
-end;
-
-procedure TForm1.ListBox1Click(Sender: TObject);
-begin
- refresh;
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- KeyPreview := True;
-end;
-
end.
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-15 06:22:36 +0000