小编J..*_*...的帖子

使用stringlist复制和复制无法正常工作

我有一个大的xml文件,我希望将每个id,source和target保存在stringlist中,以便在成功导入到stringlists后生成一个查询到mysql.

下面是我的xml片段:

xliff version="1.1">
 <file original="Xliff Demo" source-language="EN" target-language="DE" datatype="html">
 <header>
 <skl>
 <external-file uid="017dbcf0-c82c-11e2-ba2b-005056c00008" href="skl\simple.htm.skl"/>
 </skl>
 </header>
 <body>
 <trans-unit id="00ffmnpB5wBV5KFqBxuHLi4fwJvvuB">
 <source xml:lang="EN">1lnRUfBBeHtbS96uULSht42VNMN7XE4qt9JrOcWhtoTuhnbAQ9</source>
 <target xml:lang="DE">zZvOLJfLCy9oP5GQYfEqw5LAeC2ESAxRmVe1JyQdmJ1eG2jz1N</target>
 <note/></trans-unit>
 <trans-unit id="00kjUwy1rJ54bEGYp7XZvtBiY32pmj">
 <source xml:lang="EN">HXOQLUWkfJg206vRw8lyWhCWChOacVxbMukfQ0HUdNHSI18GG4</source>
 <target xml:lang="DE">8dsX38mezeZ0w0w37LI66CDRuI8gBD23zT5KR4iqYNv3IGUgH0</target>
 <note/></trans-unit>
 <trans-unit id="00kk3Af8SFpHyelAaYrgK58b9GbIDj">
 <source xml:lang="EN">wQFxZiCiRsSNWs20G4WXAmDBRdRL6fcrrJnCgtbiXGSfHzpYrT</source>
 <target xml:lang="DE">oFVTUdPkExOhISYofIImLsnVKd3NSZg32tyeP5iRxRZdmuYQDy</target>
 <note/></trans-unit>
 <trans-unit id="00Ky2dmDU9wGTWBnJxeL9b9gkts5UQ">
 <source xml:lang="EN">nHQcjAW02lWe0SyOhqGtyqUhpwQ8qgWX3rUynMRf4BDHfVdHOC</source>
 <target xml:lang="DE">0CURp1dcZydB1V2rEZ1lnOhmYufOYbrLbh84e1ZnALlzZPVq4F</target>
 <note/></trans-unit>
 <trans-unit id="00pMSFlBfA3bJ8Xy9I78wz6XisPYcV">
 <source xml:lang="EN">IuhtaVnZtF67nxKz5dbmuy8BEMTs2X1120FzDtIplKF2Me5AsQ</source>
 <target xml:lang="DE">1BGSJQDZBm4UW974pucnX3XHuYOQYpC7nTcIH01rbKlOkVi9bo</target>
 <note/></trans-unit>
 <trans-unit id="012w2kb2d1Lo6NbJLE0BawThzsSuCJ">
 <source xml:lang="EN">0RoniOGZ7V7WTF1YQg59B8jBhRxnLVXscC1LOGPzKPYRs76oIz</source>
 <target xml:lang="DE">gyw15fkHTni2aUGWI5qiPHEz8vsJJJsW4OOqKwGYL1qzfUVfLO</target>
 <note/></trans-unit>
...
..
..

Run Code Online (Sandbox Code Playgroud)

所以我尝试在单独的字符串列表中保存trans-unit id,source xml:lang"EN",target xml:lang ="DE"的每个条目,但只保存值.

那是我的代码:

{ -----------  Import Procedure ------------ }
procedure TForm2.Button2Click(Sender: TObject);
var
  xmlFile, …

Run Code Online (Sandbox Code Playgroud)

xml delphi tstringlist delphi-xe3

Hid*_*den

2013 06-24

0
推荐指数

1
解决办法

441
查看次数

如果有的话,Parallel.Invoke可以提供最小的性能提升

我写了一个简单的控制台应用程序,以测试基于Microsoft在msdn上的示例的Parallel.Invoke的性能:

public static void TestParallelInvokeSimple()
    {
        ParallelOptions parallelOptions = new ParallelOptions { MaxDegreeOfParallelism = 1 }; // 1 to disable threads, -1 to enable them
        Parallel.Invoke(parallelOptions,
            () =>
                {
                    Stopwatch sw = new Stopwatch();
                    sw.Start();
                    Console.WriteLine("Begin first task...");
                    List<string> objects = new List<string>();
                    for (int i = 0; i < 10000000; i++)
                    {
                        if (objects.Count > 0)
                        {
                            string tempstr = string.Join("", objects.Last().Take(6).ToList());
                            objects.Add(tempstr + i);
                        }
                        else
                        {
                            objects.Add("START!");
                        }
                    }
                    sw.Stop();
                    Console.WriteLine("End first task... {0} seconds", sw.Elapsed.TotalSeconds);
                }, …

Run Code Online (Sandbox Code Playgroud)

.net c# performance task-parallel-library

gok*_*ter

2014 07-02

0
推荐指数

1
解决办法

655
查看次数

程序在读取程序后停止(delphi)

我的程序停止读取任何行,并在此过程之后结束程序,如"结束".之后(但不是):

  Procedure BubbleSort;
  var i, j : integer;
  begin
    for i := 0 to count - 1 do begin
      for j := count - 1 downto i do
        if (together[j] > together[j - 1]) then
          Swap(together[j - 1], together[j]);
    end;
  end;

Run Code Online (Sandbox Code Playgroud)

delphi pascal bubble-sort

Fil*_*lik

2015 04-13

0
推荐指数

1
解决办法

320
查看次数

无法使用 TIdSMTP 发送 UTF-8 消息

我有按钮发送邮件：

procedure TRealization.Button17Click(Sender: TObject);
var
  EmailCore: TStringStream;
  EmailBody, sInvoices: string;
  FilePath: string;
  MailTitle: string;
  i: integer;
begin
  if (Languages.ItemIndex > -1) then begin
    EmailCore := TStringStream.Create('', TEncoding.UTF8);
    if Languages.ItemIndex = 0 then begin
        FilePath := ExtractFilePath(Application.ExeName)+'/languages/pl.html';
        MailTitle := 'P?atno?? dla '+Monitoring.l_client_name.Caption;
    end else if Languages.ItemIndex = 1 then begin
        FilePath := ExtractFilePath(Application.ExeName)+'/languages/en.html';
        MailTitle := 'Invoice payment for '+Monitoring.l_client_name.Caption;
    end;
    EmailCore.LoadFromFile(FilePath);
    for i := 0 to (preview_invoices.RowCount-1) do begin
      sInvoices := sInvoices+'<tr><td>'+preview_invoices.Cells[2,i]+'</td><td>'+preview_invoices.Cells[4,i]+'</td><td>'+preview_invoices.Cells[4,i]+'</td><td>'+preview_invoices.Cells[5,i]+'</td><td>'+preview_invoices.Cells[6,i]+'</td></tr>';
    end;
    EmailBody := StringReplace(EmailCore.DataString, ':LIST:', sInvoices, [rfReplaceAll]);
    EmailBody := …

Run Code Online (Sandbox Code Playgroud)

delphi indy utf-8 indy10 delphi-10.1-berlin

Sat*_*tes

2017 04-29

0
推荐指数

1
解决办法

1145
查看次数

导致代码跳跃的异常

我正在使用D5和Synaps与OpenSSL,它工作得很好.我正在尝试处理崩溃因此故意输入错误数据,一次尝试一次.到目前为止,我已经处理了诱导崩溃,但我刚刚更改了登录密码并尝试登录.

gMajorFail:=False;
if not pop3.Login() then
begin
  gMajorFail:=True;
  raise EPOP3.Create('POP3 ERROR: '+IntToStr(pop3.Sock.LastError)+
                     ' When trying to Login to Account');
end;
if gMajorFail then GoTo HadFailure;

Run Code Online (Sandbox Code Playgroud)

它不会跳转到HadFailure-Label,而是跳转到过程中的最后一行代码.

我尝试过使用Try/Finally(这就是我使用Label to GoTo的原因)但它仍然跳到最后一行代码.

我哪里出错了,我该如何解决？

谢谢

delphi exception-handling delphi-5

use*_*495

2013 07-30

-1
推荐指数

1
解决办法

188
查看次数

为什么程序在分配字符串后崩溃

我有整数和字符串的类,当我使用整数一切都很好,但当我使用字符串程序崩溃

//class
CatInfoType = class(TRemotable)
  private
    FcatId: Integer;
    FcatName: string;
    FcatParent: Integer;
    FcatPosition: Integer;
    FcatIsProductCatalogueEnabled: Integer;
  published
    property catId : Integer read FcatId write FcatId;
    property catName : string read FcatName write FcatName;
    property catParent : Integer read FcatParent write FcatParent;
    property catPosition : Integer read FcatPosition write FcatPosition;
    property catIsProductCatalogueEnabled: Integer 
                                       read FcatIsProductCatalogueEnabled 
                                       write FcatIsProductCatalogueEnabled;
end;
//program code 
procedure TForm2.Button7Click(Sender: TObject);
var
  rc: Integer;
  k: CatInfoType;
  l:String;
begin
  k.catId:=4646;
  k.catName:='777';//that crashing the program
end;

Run Code Online (Sandbox Code Playgroud)

delphi string crash

作者

2014 08-15

-1
推荐指数

1
解决办法

144
查看次数