Zitat von
ölöp78:
Habe das entsperren jetzt mit folgenden Ansatz ausprobiert, aber er zeigt immer wieder "inkompatible Typen" an, sowie "das private Symbol entsperren wurden deklariert, aber nie verwendet".
Delphi-Quellcode:
Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string);
var i:integer;
l:integer;
Begin
l:= length(wort);
i:=2;
repeat
delete(' ',wort,i);
i:= i + 2
until i > l;
end;
wo zeigt er dir inkompatible Typen an?
mit "das private Symbol entsperren wurden deklariert, aber nie verwendet" meint der compiler, das du niergends die procedure entsperren aufrufst, und deshalb wird diese procedure vom compiler verworfen.
du hast noch das problem, das du mit deiner schleife über die länge des strings gehst, da du die länge am anfang bestimmst, aber diese wird ja während der schleife immer kürzer.
einfach wäre es, wenn du den text einfach in einen neuen string kopieren würdest, dann kannste eine einfache for schleife verwenden und bei kopieren der chars einfach jedes zweite zeichen auslassen