Dezimal -> Binär

[Elexarie]

Wenn ich bei am Beginn meiner CharToBin Funktion

Code:

Result := '';

verwende, dann gibt meine Funktion nichts mehr an den Aufruf weiter.

Wenn ich Result nicht initialisiere funktioniert der folgende Code:

Code:

function CharToBin(ordinary: integer): string;
var ergebnis : integer;
begin

  while ordinary > 0 do

  begin
    ergebnis := ordinary mod 2;
    if ergebnis = 1 then
      result := '1' + result
    else
      result := '0' + result;
    ordinary := ordinary div 2;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  Memo2.Lines.Clear();
  OpenPictureDialog1.Execute(); // Öffnen des Öffnen - Dialogs
  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); // Laden des Bildes;

  for i := Length(Memo1.Text) downto 0 do
  begin

    Memo2.Text := CharToBin(ord(Memo1.Text[i]));


  end;
while Length(Memo2.Text) mod 3 > 0 do
Memo2.Text := Memo2.Text + '0';
ShowMessage(inttostr(Length(Memo2.Text)));
end;

end.