Hallo Leute, ich habe keine Ahnung was ich noch machen soll. Ich bekomme immer einen EAccessViolation Zugriffsverletzung bei Adresse (variiert) dabei habe ich doch alles richtig gemacht oder? Ich weiß auch, daß so etwas nicht zum ersten mal gefragt wurde. Aber trotzdem, es muss sein.
Delphi-Quellcode:
var e : String;
a : TStrings;
d, zeil : word;
begin
a := TStringList.Create;
a := Memo1.Lines;
Memo2.Clear;
For zeil := 1 to a.Count-2 do
begin
e := LowerCase(a[zeil]);
d := AnsiPos(LowerCase('...'), e);
if d > 0 then
begin
Memo2.Lines.Add(inttostr(d)+' '+e);
break;
end;
end;
a.Free;
end;
Das Teil ist dazu da, einen bestimmten Teil im Text zu finden und das nächste Wort (variabel) wiederzugeben.