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!

------------------
EmilOhman.cjb.net

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?

------------------
EmilOhman.cjb.net

[Redigerat av Emilo den 27 apr 2001]

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 ö?

------------------
EmilOhman.cjb.net

[Redigerat av Emilo den 30 apr 2001]

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

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