String ersetzen/ Zugriffsverletzung

[DevilDriver]

Morgen liebe Community,
tut mir leid falls ich eine ungeschickte Anfängerfrage stelle,
allerdings habe ich neulich angefangen in Delphi zu programmieren und wolle mit einem
kleinen Programm starten, in diesem Fall: Hangman.
Dabei habe ich in einem Edit-Feld die Länge des gesuchten Wortes in _ Zeichen
Ein Buchstabe wird eingegeben und das Zeichen soll durch den Buchstaben ersetzt werden.
Das Kompilieren ist kein Problem, doch wenn ich auf den Button klicke der die Funktion ausführen soll
bekomme ich folgende Fehlermeldung:
"Zugriffsverletzung bei Adresse 005115DE in Modul 'ProjectHangman.exe'. Schreiben von Adresse 00000000."

Die Variablen habe ich folgender Maßen deklariert:

Delphi-Quellcode:

var buchstabenLaenge : integer;
var buchstabe : string;
var I : integer;
var count : integer;
var lösung : string

WortLaenge ist eine globale Variable

Der Fehler findet in dieser Schleife statt:

Delphi-Quellcode:

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

Konnte mit Google den Fehler nicht finden^^
Wenn ich den Debugger benutze, werde ich an folgende Stelle gebracht

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Thread-Start: Thread-ID: 1728. Prozess ProjectHangman.exe (1284)

Kann damit nichts anfangen :(

Wärt ihr so nett mich aufzuklären?^^

[Klaus01]

Delphi-Quellcode:

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

Deine Schleifevariable heißt I
Du nutzt aber das nicht initialisiert count um auf einzelne Zeichen Deines Strings
zuzugreifen.

Grüße
Klaus

[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?

[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

[Neutral General]

Hast du Count initialisiert?
Setz mal vor der Schleife Count auf 1!

[DeddyH]

Zitat:

Zitat von Klaus01 (Beitrag 1172291)

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.

[Klaus01]

was noch fehlt ist die Länge von Lösung zu setzen.

Delphi-Quellcode:

setLength(Lösung,length(Eingabe1));

@DeddyH: Ja, da hast Du Recht.

Grüße
Klaus

[DevilDriver]

anscheinend hab ich noch viel zu lernen ;)

setLength(Lösung,length(Eingabe1));

wo soll ich das einsetzen? in der schleife?

[DeddyH]

Wie ich schon sagte:

Zitat:

Zitat von DeddyH (Beitrag 1172290)

Zeig doch mal die ganze Methode.

[Klaus01]

Zitat:

Zitat von DevilDriver (Beitrag 1172301)

anscheinend hab ich noch viel zu lernen ;)

Jeder ist mal angefangen ..

Zitat:

Zitat von DevilDriver (Beitrag 1172301)

setLength(Lösung,length(Eingabe1));

wo soll ich das einsetzen? in der schleife?

Bevor Du mit den Ersetzungen anfängst.
Am besten nachdem Eingabe1 gefüllt wurde.

Grüße
Klaus

[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;

[himitsu]

Zitat:

Zitat von DevilDriver (Beitrag 1172280)

Konnte mit Google den Fehler nicht finden^^
Wenn ich den Debugger benutze, werde ich an folgende Stelle gebracht

Google weiß auch nicht alles :angle:

Du mußt den Debugger auch mal richtig benutzen.

Haltepunkte da setzen, wo der eigentliche Fehler vermutet wird und dann im Einzellschritt weiter.

Notfalls direkt in der DPR mit Debuggen anfangen.
- mit F8 so lange weiter, bis es knallt
1:
- immer den letzen Befehl merken
- dort einen Haltepunkt drauf
- neu anfangen im debuggen (Strg+F2 und dann F9)
- mit F7 ein Stück rein
- und dann eventuell wieder mit F8 weiter, bis es knallt ... neuen Haltepunkt setzen (Alten löschen)
- wenn dort ein Funktionsaufruf ist und darin wieder eigener Code steckt, dann zurück zu 1

- hier hast du ja nun schon einen Haltepunkt, also kann man notfalls auch mehrmals diese Stelle untersuchen (neu Anfangen mit Debuggen, bzw. Ereignis neu ausläösen, welches diesen Code aufruft)
- diese Stelle untersuchen, also Variablen ansehn und prüfen ob auch das drin ist, was drin sein sollte
- usw.


PS:
Warum sind eingabe1 und wortLaenge globale Variablen? (es gehört ja wohl eher zur Form, bzw. zu Methoden die in TForm1 stecken, also gehört es auch in diese Klasse/TForm1 rein ... z.B. ins "Private")

[DeddyH]

buchstabenLaenge ist garantiert immer 1, da ein Char per Definitionem genau einem Zeichen entspricht. Und vor der Schleife

Delphi-Quellcode:

for I := 1 to wortLaenge do

musst Du lösung noch auf die Länge wortLaenge setzen.

Delphi-Quellcode:

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:

Zitat von DevilDriver (Beitrag 1172311)

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

[DevilDriver]

oh mann was für ein blöder fehler^^
vielen dank