Nybörjare

Är det ingen som vet hur man gör en replace funktion.
Jag har ett skriv fält där man skriver in ett ord och sedan trycker man på en knapp och då visas en krypterad text i text fältet under, snälla hjälp!

En väldigt enkel lösning

var
Str, S, R: String;
i: integer;
begin
S := 'Ö';
R := '-';
Str:= 'XÖXÖXÖXÖXÖXÖXÖXÖXÖXÖXÖXÖXÖ';
for i := 1 to Length(Str) do
if Str = S then
Str := R;
end;

När jag skriver detta:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
procedure TForm2.Button1Click(Sender: TObject);
var
Str, S, R: String;
i: integer;
begin
S := 'Ö';
R := '-';
Str := 'text1.text';
for i := 1 to Length(Str) do
if Str = S then
Str := R;

text2.text := '+ Str +';
end;

får dessa felmeddelanden:
[Error] Unit2.pas(49): Incompatible types: 'Char' and 'String'

rad 49= Str := R;

vad är det för fel?

Detta borde funka

var
Str : String;
S, R: Char;
i: integer;
begin
S := 'Ö';
R := '-';
Str := text1.text;
for i := 1 to Length(Str) do
if Str = S then
Str := R;
text2.text := Str;
end;

Tack så mycket det funkade mycket bra

Men hur gör jag om jag vill kunna ersätta flera tecken, nu går det ju bara med ö?

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Close;
end;

borde funka om du ska stänga ett form från ett annat...