String ersetzen/ Zugriffsverletzung

[DevilDriver]

meinst du ich sollte count durch I ersetzen?
in dem fall bekomme ich allerdings die gleiche fehlermeldung

[DeddyH]

Zeig doch mal die ganze Methode. Ist Buchstabe initialisiert, und wieso ist das ein String, würde Char nicht genügen?

[DeddyH]

Wie ich schon sagte:

Zitat von DeddyH:

Zeig doch mal die ganze Methode.

[DevilDriver]

Delphi-Quellcode:

var
  Form1: TForm1;
  var eingabe1 : string;
  var wortLaenge : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var I : integer;
begin
eingabe1 := edit1.text;

wortLaenge := length(eingabe1);
for I := 1 to wortLaenge do
begin
  edit3.Text:=edit3.Text+'_';
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var buchstabenLaenge : integer;
var buchstabe : char;
var I : integer;
var lösung : string;

begin

buchstabe := edit2.Text[1];
buchstabenLaenge := length(buchstabe);
if buchstabenLaenge>=2 then
begin
  label2.Caption:= 'Bitte geben sie nur einen Buchstaben ein!';
end
else
begin

  for I := 1 to wortLaenge do
  begin
  if eingabe1[I]=buchstabe  then
  begin
     lösung[I]:=buchstabe;
  end;
  end;


end;




end;

[DeddyH]

buchstabenLaenge ist garantiert immer 1, da ein Char per Definitionem genau einem Zeichen entspricht. Und vor der Schleife
for I := 1 to wortLaenge do musst Du lösung noch auf die Länge wortLaenge setzen.
SetLength(lösung, wortLaenge);

[Klaus01]

.. wird dasn eine Art von Hangman Spiel?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var I : integer;
begin
  eingabe1 := edit1.text;
  setLength(lösung, length(eingabe1)); 
  wortLaenge := length(eingabe1);
  for I := 1 to wortLaenge do
    begin
     edit3.Text:=edit3.Text+'_';
    end;

end;

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var buchstabenLaenge : integer;
var buchstabe : char;
var I : integer;
//var lösung : string;

begin

Grüße
Klaus

[DevilDriver]

ich bekomme zwar keine fehlermeldungen mehr, aber der buchstabe wird auch nicht ersetzt
wenn ich button2 klicke passiert gar nichts

[Klaus01]

Zitat von DevilDriver:

ich bekomme zwar keine fehlermeldungen mehr, aber der buchstabe wird auch nicht ersetzt
wenn ich button2 klicke passiert gar nichts

Weil Du die Lösung nicht nach edit3.text kopierst.

Grüße
Klaus

[Klaus01]

Delphi-Quellcode:

  
for i := 1 to length(eingabe1) do
  begin
    if eingabe1[i]=buchstabe[1] then
      begin
        lösung[i]:=buchstabe[1];
      end;
  end;

Welche Delphi-Version nutzt Du >= 2009 dann hat Dein String pro Buchstaben zwei 2Byte.
Dann könntest Du auf AnsiString ausweichen.

Eingabe1 ist ein String - oder ist es eine Edit-Componente?

Grüße
Klaus

[DeddyH]

Zitat von Klaus01:

Welche Delphi-Version nutzt Du >= 2009 dann hat Dein String pro Buchstaben zwei 2Byte.
Dann könntest Du auf AnsiString ausweichen.

Er greift doch nicht byteweise auf den String zu, daher dürfte Unicode hier nicht das Problem sein.