freie QR-Code Komponente mit Error Correction Level M

[mkinzler]

Alle Daten sind in einem Wert kodiert.

Versuche statt

Delphi-Quellcode:

  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    s:=s+Memo1.Lines.Strings[i]+#10;
  end;

s := Memo1.Lines.Text;