Code
var text: string;
geschrieben: boolean;
i: byte;
begin
text:=edit1.text;
if text[length(text)]=edit2.text[length(edit2.text)] then
text[length(text)]:=edit2.text[1]
else
text[length(text)]:=edit2.text[pos(text[length(text)],edit2.text)+1];
if text[length(text)]=edit2.Text[1] then
begin
i:=0;
geschrieben:=false;
while not geschrieben do
begin
inc(i);
geschrieben:=true;
if text[length(text)-i]='' then
begin
text:=text+edit2.Text[1];
end
else
begin
if text[length(text)-i]=edit2.text[length(edit2.text)] then
text[length(text)-i]:=edit2.text[1]
else
text[length(text)-i]:=edit2.text[pos(text[length(text)-i],edit2.text)+1];
if text[length(text)-i]=edit2.text[1] then
geschrieben:=false;
end;
end;
end;
edit1.text:=text;
end;Zitat von SarinNochmal eine kurze Erkl?rung zum Code:
edit1 gibt den generierten Text aus (der dann zB in eine Textdatei geschrieben werden kann)
In edit2 stehen die Zeichen, welche verwendet werden sollen
(Sollte das edit1 zu Begin leer sein kommt es zu einem Fehler, also am besten vorher ?berpr?fen und notfalls setzen)
Wer Codeverbesserungen hat einfach posten ich bin immer offen f?r Kritik
