---
title: "Nybörjare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27910-nybörjare"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Emilo"
published: "2001-04-26T17:24:00.000Z"
updated: "2001-05-18T21:15:00.000Z"
replies: 6
views: 422
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/27910-nybörjare"
---

# Nybörjare

## #1 — Emilo, 2001-04-26T17:24Z

Jag undrar hur man öppnar ett nytt fönster eller form och stänger det gamla när man trycker på en knapp?

Och så undrar jag hur man göra en replace funktion som ersätter t ex a med ö och b med ä etc

Permalänk: https://www.webforum.nu/p/27910

## #2 — Emilo, 2001-04-26T19:47Z

Ä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!

Permalänk: https://www.webforum.nu/p/400672

## #3 — jt, 2001-04-27T13:14Z

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;**

Permalänk: https://www.webforum.nu/p/400673

## #4 — Emilo, 2001-04-27T20:20Z

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?

Permalänk: https://www.webforum.nu/p/400674

## #5 — jt, 2001-04-29T20:54Z

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;**

Permalänk: https://www.webforum.nu/p/400675

## #6 — Emilo, 2001-04-30T13:30Z

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

Permalänk: https://www.webforum.nu/p/400676

## #7 — JohanD, 2001-05-18T21:15Z

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

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

Permalänk: https://www.webforum.nu/p/400677

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27910-nybörjare