Textdatei Md5

[omata]

Ja hat es.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to memo1.lines.count do begin
    Memo2.lines.Add(MD5Print(MD5String(Memo1.lines[i-1])))
  end;
end;

Die Memozeilen starten beim Index 0!