Also hier mein Quelltext für die Prozedur..
Delphi-Quellcode:
var z : integer;
v : SHORTSTRING;
begin
v:=evokal.text;
FOR z:=1 TO LENGTH(txt) DO
IF (txt[z]= 'a')or (txt[z]= 'e')or (txt[z]= 'i') or (txt[z]= 'o') or (txt[z]= 'u')
or (txt[z]= 'A') or (txt[z]= 'E') or (txt[z]= 'I') or (txt[z]= 'O') or (txt[z]= 'U')
THEN txt[z]:=v;
v:=lbdatei.items.Add(INTTOSTR(z));
end;
Beim letzten funktioniert es nicht.
Also ab v:=...
Es werden nicht die Vokale geändert. Der Text bleibt gleich.