Einzelnen Beitrag anzeigen

Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#3
  Alt 22. Jan 2003, 22:09
der aufruf und in die ueses binary einbinden

Code:
procedure TForm1.Button1Click(Sender: TObject);
var
  i : word;
  zeichen : string;
  leer : string[1];
  zeichen8 : byte;
  zeichen8S : string[8];
begin
  case RadioGroup1.ItemIndex of
    0:
      begin
        if CheckBox1.Checked then
          leer := ' '
        else
          leer := '';
        for i := 1 to length(Memo1.Lines.Text) do
        begin
          zeichen := zeichen + StrToBinX(Memo1.Lines.Text[i]) + leer;
        end;
        Memo2.Lines.Text := zeichen;
        zeichen := '';
      end;
    1:
      begin
        i := 1;
        zeichen8 := 0;
        repeat
          if (Memo1.Lines.Text[i] <> ' ') and ((Memo1.Lines.Text[i] = '1') or (Memo1.Lines.Text[i] = '0')) then
          begin
            repeat
              zeichen8S := zeichen8S + Memo1.Lines.Text[zeichen8+i];
              inc(zeichen8);
            until zeichen8 = 8;
          zeichen := zeichen + Char(BinXToStr(zeichen8S));
          zeichen8 := 0;
          zeichen8S := '';
          i := i + 7;
          end;
        inc(i);
        until i >= length(Memo1.Lines.Text);
        Memo2.Lines.Text := zeichen;
      end;
    end;
end;
[/quote]
  Mit Zitat antworten Zitat