Was bedeutet die Fehlermeldung: Zugriffsverletzung bei Adresse 00428FAB ?
Hier der Quelltext: (der Fehler tritt am Anfang der IF-Abfrage auf)
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s,vor,genau,nach:string;
a,i,y:integer;
begin
MemoLaenge;
form1.memo2.clear;
For y:=0 to Zeilen do
Begin
s:=Form1.memo1.lines[y];
a:=length(s);
i:=1;
repeat
if s[i]='ä' then
Begin
Vor:=Copy(S,1,i-1);
genau:='ae';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
if s[i]='ö' then
Begin
Vor:=Copy(S,1,i-1);
genau:='oe';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
if s[i]='ü' then
Begin
Vor:=Copy(S,1,i-1);
genau:='ue';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
if s[i]='ß' then
Begin
Vor:=Copy(S,1,i-1);
genau:='ss';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
i:=i+1;
until i=a;
form1.memo2.lines.add(s);
end;
Hier der Quelltext: (der Fehler tritt am Anfang der IF-Abfrage auf)
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s,vor,genau,nach:string;
a,i,y:integer;
begin
MemoLaenge;
form1.memo2.clear;
For y:=0 to Zeilen do
Begin
s:=Form1.memo1.lines[y];
a:=length(s);
i:=1;
repeat
if s[i]='ä' then
Begin
Vor:=Copy(S,1,i-1);
genau:='ae';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
if s[i]='ö' then
Begin
Vor:=Copy(S,1,i-1);
genau:='oe';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
if s[i]='ü' then
Begin
Vor:=Copy(S,1,i-1);
genau:='ue';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
if s[i]='ß' then
Begin
Vor:=Copy(S,1,i-1);
genau:='ss';
Nach:=copy (S,(i+1),(a-1));
S:=vor+genau+nach;
a:=a+1;
end;
i:=i+1;
until i=a;
form1.memo2.lines.add(s);
end;
Comment