Номера счастливых билетов: Проблема с исправлением кода (готовый) Delphi 7

[Валентинн]

Мне нужно что бы Номера счастливых билетов или 3 столбик в результатах выводились по порядку а не в разнобой как сейчас =)

program HappyNum;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Classes,
  SyncObjs;

type
  TMyThread = class(TThread)
  public
    leftBorder, rightBorder : Integer;
       Constructor Create(CreateSuspended : Boolean;  leftBorder : Integer;  rightBorder : Integer);
       procedure Execute; override;
  end;

const
    OUT_FILE_NAME = 'listhappy.txt';


var
  fileId : TextFile;
 msg: String;
  count : Integer;
  Thread1, Thread2 : TMyThread;
  crit : TCriticalSection;
function WinToRusCon(msg: String): String;
 var
  ruMsg : array[0..255] of Char;
 begin
  CharToOemBuff(PChar(msg), ruMsg, Length(msg) + 1);
  WinToRusCon := ruMsg;
 end;


procedure WriteToFileAndUI(msg: String);

 begin
  Writeln(WinToRusCon(msg));
  Writeln(fileId, msg);
 end;


procedure PrepareFile();
 begin
  AssignFile(fileId, OUT_FILE_NAME);
  if FileExists(OUT_FILE_NAME) then DeleteFile(PChar(OUT_FILE_NAME));
  ReWrite(fileId);
 end;


procedure CalculateHappyNumbers(leftBorder : Integer; rightBorder : Integer);
var
 i, k1, k2, s1, s2 : Integer;
begin
   for i := leftBorder to rightBorder do
   begin
    k1 := i div 1000;
    k2 := i mod 1000;
    s1 := (k1 div 100) + ((k1-(k1 div 100)*100) div 10 ) + k1 mod 10;
    s2 := (k2 div 100) + ((k2-(k2 div 100)*100) div 10 ) + k2 mod 10;


    if s1 = s2 then
     begin
      crit.Enter;
      count := count +1;
      FmtStr(msg, '%5u %6.6u %2u (Thread: %u)', [count, i, s1, Windows.GetCurrentThreadId]);
      WriteToFileAndUI(msg);
      crit.Leave;
     end;
   end;
end;


constructor TMyThread.Create(CreateSuspended : Boolean;
      leftBorder : Integer;
      rightBorder : Integer);
begin
  inherited Create(CreateSuspended);
  self.leftBorder := leftBorder;
  self.rightBorder := rightBorder;
end;


procedure TMyThread.Execute;
begin
 CalculateHappyNumbers(self.leftBorder, self.rightBorder);
 self.Terminate;
 self.Free;
end;


begin
 try
  PrepareFile();
  crit := TCriticalSection.Create();
  count := 0;

  Thread1 := TMyThread.Create(false, 0, 500000);
  Thread2 := TMyThread.Create(false, 500000, 999999);


  while not (Thread1.Terminated and Thread2.Terminated) do
    sleep(100);


  WriteToFileAndUI('Итого ' + IntToStr(count) + ' счастливых билетов');
 finally
  CloseFile(FileID);
  readln;
 end;
end.

[Serge_Bliznykov]

я вчера открыл ваш код, увидел TMyThread.Create, вздрогнул и сразу же закрыл...
Поясните, зачем Вы используете параллельные потоки (нити) для вычислений? Это ваша задумка или обязательное требование к работе?

[Валентинн]

Да! все дело в том, что нам дан исходный код организованный след. образом:

Изначальный код :

program happy;
{$APPTYPE CONSOLE}
uses
  SysUtils, Windows;

var
  FileID: TextFile;
  NameProt, S: String;
  i, k1, k2, s1, s2, count: Integer;
  TempsS: array [0..255] of Char;

function WinToRusCon(S: String): String;
begin
  CharToOemBuff(PChar(S), TempsS, Length(S)+1);
  WinToRusCon:=TempsS;
end;

procedure WriteLnToRusCon(S: String);
begin
  CharToOemBuff(PChar(S), TempsS, Length(S)+1);
  WriteLn(TempsS);
end;

procedure MyWrite(StrOut: String);
begin
  Writeln(WinToRusCon(StrOut));
  Writeln(FileID, StrOut);
end;

begin
  NameProt:='listhappy.txt';
  try
      AssignFile(FileID, NameProt);
      if FileExists(NameProt) then DeleteFile(PChar(NameProt));
      ReWrite(FileID);
      count:=0;
      for i:=0 to 999999 do
        begin
          k1:=i div 1000;     k2:=i mod 1000;
          s1:=(k1 div 100)+ ((k1-(k1 div 100)*100) div 10 )+ k1 mod 10;
          s2:=(k2 div 100)+ ((k2-(k2 div 100)*100) div 10 )+ k2 mod 10;
          if s1=s2 then
            begin
              count:=count+1;
              FmtStr(S, '%5u %6.6u %2u', [count, i, s1]);
              MyWrite(S);
            end;
        end;
      MyWrite('итого '+IntToStr(count)+' счастливых билетов');
    finally
      CloseFile(FileID);  end;
end.

И как раз нужно реализовать многопоточность используя класс TTread.

[Валентинн]

Вверх вверх вверх