String (str[i]) funktioniert nicht

[Berlinermauer]

Hi,
blöder Titel, aber folgendes :

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?

[Namenloser]

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

[Mithrandir]

Was steht denn im Edit?

[Matze]

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.

[oki]

was steht denn drin in Edit1.Text?

[Berlinermauer]

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

[oki]

4 Leute die gleiche Frage?

Das muss die richtige sein :thumb:

Gruß oki

[oki]

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

[Mithrandir]

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

[Berlinermauer]

stimmt :) geb ich was anderes ein funtzt?

ok sehe gerade bei der Zahl gehts auch.

Aber irgendwas ist dann hier falsch :

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;