Перевести код с Delphi

@~~lodret~~ · 11.09.2015, 00:52. **Показов** 1318. **Ответов** 4

Author24 — интернет-сервис помощи студентам

как мне перевести этот код с делфи 7 на c# win forms?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var
 list:tstringlist;
 s,a:string;
 i:integer;
  begin
 list:=tstringlist.Create;
 list.LoadFromFile('1.txt');
 list.LoadFromFile('2.txt');
 list.LoadFromFile('3.txt');
 Edit1.Text:=UpperCase(Edit1.Text);
 for I := 0 to List.Count - 1 do
 begin
 s:=list[I]; 
 a:=MD5DigestToStr(MD5String(s));
 if a=edit1.Text then 
 begin
 Edit2.Text:=s; 
 break;
 end;
 end;
 end;
 end.

@atoi · 11.09.2015, 12:10

lodret,

@~~lodret~~ · 11.09.2015, 22:58 **[ТС]**

atoi, можешь написать такое :
if (i mod 200)=0 then Application.ProcessMessages();
FreeAndNil(list);
то есть прога очищает память каждые 200 строк

Добавлено через 34 секунды
у меня так :

C#

if (i % 100 == 0)
                {
                    Application.DoEvents();
                }
                if (a == textBox1.Text)
                {
                    textBox2.Text = s;
                    break;
                }

@atoi · 12.09.2015, 00:39

lodret, я не знаю Delphi, посмотрел в мануалы, процедура FreeAndNil обнуляет объект и освобождает ресурсы, т.е. можно написать:

C#

1 2	if (i % 200 == 0) list=null;

объект будет уничтожен GC

@~~lodret~~ · 12.09.2015, 00:49 **[ТС]**

atoi,

Сообщение от atoi

я не знаю Delphi

как будто я его знаю! У меня с ним очень злые отношения, а вот с c# отношения очень ++++++

@~~lodret~~ Заблокирован
	12.09.2015, 00:49 [ТС]	5
	atoi, Сообщение от atoi я не знаю Delphi как будто я его знаю! У меня с ним очень злые отношения, а вот с c# отношения очень ++++++ 0

Перевести код с Delphi

Решение