Hi,
blöder Titel, aber folgendes :

markieren

Delphi-Quellcode:

intstr: String;

intstr := Edit1.Text;
ShowMessage(intstr);
ShowMessage(intstr[4]);

Die Zweite Message ist leer, liegt das daran dass das Zeichen ein Integer ist?! eigentlich ja nicht oder?

oder geht das nur bei ShortStrings noch?

Etwas mehr Infos bitte. Was genau steht in Edit1.Text?

Was steht denn im Edit?

Hallo,

ich bin mir nicht sicher, denke aber, dass es funktionieret. Was steht dem im Edit? Ich nehme an, das 4. Zeichen ist kein Leerzeichen.

Grüße

Edit: Huch, da waren 2 schneller.

was steht denn drin in Edit1.Text?

Edit1.Text sind BinärZahlen, die von meinem Programm umgerechnet werden sollen.

darin ist zB 110 oder so, aber selbst wenn ich "hi" eingebe, funktioniert es nicht

4 Leute die gleiche Frage?

Das muss die richtige sein

Gruß oki

hi hat nur 2 Buchstaben. In ...[4] steht nichts sinnvolles. Maximal #0

Jupp. String[4] gibt dir das vierte Zeichen des Strings. Wenn der String natürlich nur 3 hat, dann steht an 4. Stelle nix...

stimmt geb ich was anderes ein funtzt?

ok sehe gerade bei der Zahl gehts auch.

Aber irgendwas ist dann hier falsch :

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form1: TForm1;
  intcounter,intsolution,intpos: Integer;
  intstr: String;
  Wert: Array [1..8] of Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
intstr := Edit1.Text;

Wert[8] := 1;
Wert[7] := 2;
Wert[6] := 4;
Wert[5] := 8;
Wert[4] := 16;
Wert[3] := 32;
Wert[2] := 64;
Wert[1] := 128;

intsolution := 0;

for intcounter := 0 to Length(intstr) + 1 do begin
intpos := 8 - intcounter; // Aktuelle Position
ShowMessage(intstr);
ShowMessage(intstr[4]);
ShowMessage('Int Pos : ' + IntToStr(intpos) + 'IntContent' + intstr[intpos] + 'Solution ' + IntToStr(intsolution));

  if intstr[intpos] = '0' then begin
  intsolution := intsolution + 0;
  // 0
  end

  else if intstr[intpos] = '1' then begin
    intsolution := intsolution + Wert[intpos];
  end
  {
  else begin
    ShowMessage('Error: Binary has other values than 0 or 1');
  end;}
end;

ShowMessage(IntToStr(intsolution));
end;