Warum funktioniert mein Übersetzer nicht?

[Phillip0405]

Ich habe es jetzt mal so geändert, aber es kommt dann immer wieder die Fehlermeldung "Zugriffsverletzung bei Adresse 005A8301 in Modul "Übersetzer"".
Kennt ihr den Fehler?

[baumina]

Was hast du wie geändert?

[Phillip0405]

Delphi-Quellcode:

unit UnÜbersetzer;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Actions,
  Vcl.ActnList, Vcl.ExtCtrls, Vcl.Menus;

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    edit2: TEdit;
    Button1: TButton;
    edit3: TEdit;
    procedure Button1Click(Sender: TObject);


   private
    { Private-Deklarationen }
  public
   { Public-Deklarationen }
  end;

var
  Form4: TForm4;


implementation

{$R *.dfm}

 procedure TForm4.Button1Click(Sender: TObject);


var
   englisch: TStringlist;
   W, satz : string;
   i, b,a,buchstabe: integer;

 begin
   w := edit1.Text;
   satz:=edit1.Text;
   englisch := TStringlist.create;
    a:=Pos('Ü',W,a);
    a:=Pos('Ä',W,a);
    a:=Pos('Ö',W,a);
    a:=Pos('ß',W,a);
    a:=Pos('a''e''i''o''u',W,a);
   try
      if Satz[buchstabe]='Ü' then  begin
         a:=Pos('Ü',W,a);
         Delete(w,b,a);
         insert('Ue',w, a);
         edit3.Text:= w;
         englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
         edit2.Text := (englisch.Values[W]);
      end
  finally
        try

            if Satz[buchstabe]='Ä' then begin
            a:=Pos('Ä',W,a);
            Delete(w, b, a);
            insert('Ae',w, a);
            edit3.Text:= w;
            englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
            edit2.Text := (englisch.Values[W]);
           englisch.Free;
         end
      finally
        try

          if Satz[buchstabe]='Ö' then begin
          a:=Pos('Ö',W,a);
          Delete(w,b, a);
          insert('Oe',w, a);
          edit3.Text:= w;
          englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
          edit2.Text := (englisch.Values[W]);
          englisch.Free;
          end
        finally
            try
                if Satz[buchstabe]='ß' then begin
                a:= Pos('ß',W,a);
                Delete(w,b, a);
                insert('ss',w, a);
                edit3.Text:= w;
                englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
                edit2.Text := (englisch.Values[W]);
                englisch.Free;
                end

            finally
                if Satz[buchstabe]='a''e''i''o''u' then begin
                edit3.Text:= w;
                englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
                w:=edit1.Text;
                englisch.free;
                end


            end;
         end;
       end;
      end;
 end;
 end.

[Zacherl]

Du gibst die Liste immer noch frühzeitig frei und deine try..finally Blöcke machen in der Form absolut gar keinen Sinn .. Den 10-fachen LoadFromFile() Aufruf kannst du dir btw. auch sparen. Einmal reicht.

[Jumpy]

Ich finde das Ganze auch ohne die Try-Finally-Blöcke ziemlich konfus. Vielleicht kannst du mal beschreiben, was genau du machen möchtest, bzw. was passieren soll?

Meine Vermutung:
Nutzer gibt Wort ein und drückt Button.
Dann sollen in dem Wort die Umlaute ersetzt werden?
Dann soll das Wort in einer zu ladenden Liste nachgeschaut werden, um die Übersetzung zu finden?
Diese dann ausgeben?

[hoika]

Hallo,

z.B. hier

Delphi-Quellcode:

englisch.free;  // Variable wird freigegeben
englisch.loadFromFile('D:\Übersetzer\Neu1.txt');  // -> puff !!!

Wie sieht eigentlich deine Neu1.txt aus ?

Hier noch ein paar Hilfen:

F5 - Breakpoint an der Cursorposition setzen/entfernen
Strg+F5 - Variable am Cursor überwachen
F7 - einen Schritt machen (steht der Cursor auf einer Methode, wird in die Methode reingesprungen)
F8 - einen Schritt machen (steht der Cursor auf einer Methode, wird NICHT in die Methode reingesprungen)


Heiko

[gammatester]

Die Variable buchstabe ist immer noch nicht vernünftig initialisiert! Wie willst Du ein Zeichen verarbeiten, das nicht definiert ist? Erhältst Du dafür eigentlich keine Warnung, oder hast Du die ausgeschaltet?