Edit1

Hvordan får jeg i et edit et bestemt tegn til at blive til noget andet.
Fx "Michael Jackson" Skal laves om til "Michael+Jackson".

Gerne kode eller link.

Mens man skriver?

// Sieker

Nej, bare så man kan se det i et andet edit, eller noget.

Kode 

procedure TForm1.Edit1Change(Sender: TObject);
var
  streng : string;
begin
  streng := edit1.Text;
  streng := StringReplace(streng,'Michael Jackson','Michael+Jackson',[rfIgnoreCase]);
  edit2.Text := streng;
end;

Hvordan får jeg i et edit et bestemt tegn til at blive til noget andet.
Fx "Michael Jackson" Skal laves om til "Michael+Jackson".

Gerne kode eller link.

Hvordan får jeg i et edit et bestemt tegn til at blive til noget andet.
Fx "Michael Jackson" Skal laves om til "Michael+Jackson".

Gerne kode eller link.

Mens man skriver?

// Sieker

Hvordan får jeg i et edit et bestemt tegn til at blive til noget andet.
Fx "Michael Jackson" Skal laves om til "Michael+Jackson".

Gerne kode eller link.

Mens man skriver?

// Sieker

Nej, bare så man kan se det i et andet edit, eller noget.

Kode 

procedure TForm1.Edit1Change(Sender: TObject);
var
  streng : string;
begin
  streng := edit1.Text;
  streng := StringReplace(streng,' ','+',[rfIgnoreCase,rfReplaceAll]);
  edit2.Text := streng;
end;

Hvordan får jeg i et edit et bestemt tegn til at blive til noget andet.
Fx "Michael Jackson" Skal laves om til "Michael+Jackson".

Gerne kode eller link.

Mens man skriver?

// Sieker

Nej, bare så man kan se det i et andet edit, eller noget.

Sådan?

Kode 

procedure TForm1.Edit1Change(Sender: TObject);
var
  streng : string;
begin
  streng := edit1.Text;
  streng := StringReplace(streng,'Michael Jackson','Michael+Jackson',[rfIgnoreCase]);
  edit2.Text := streng;
end;

// Sieker

Ja, eller nej... det var nu at "space" skal laves om til "+" ligemeget hvad man skriver om det så var: "knep min hund" = "knep+min+hund"

Kode 

procedure TForm1.Edit1Change(Sender: TObject);
var
  streng : string;
begin
  streng := edit1.Text;
  streng := StringReplace(streng,' ','+',[rfIgnoreCase,rfReplaceAll]);
  edit2.Text := streng;
end;

Ja, eller nej... det var nu at "space" skal laves om til "+" ligemeget hvad man skriver om det så var: "knep min hund" = "knep+min+hund"

Kode 

procedure TForm1.Edit1Change(Sender: TObject);
var
  streng : string;
begin
  streng := edit1.Text;
  streng := StringReplace(streng,' ','+',[rfIgnoreCase,rfReplaceAll]);
  edit1.Text := streng;
  edit1.SelStart := strlen(pchar(streng));
end;

Ja, eller nej... det var nu at "space" skal laves om til "+" ligemeget hvad man skriver om det så var: "knep min hund" = "knep+min+hund"

Se forslaget lige nedenunder mit første forslag...

Eller se her...

Kode 

procedure TForm1.Edit1Change(Sender: TObject);
var
  streng : string;
begin
  streng := edit1.Text;
  streng := StringReplace(streng,' ','+',[rfIgnoreCase,rfReplaceAll]);
  edit2.Text := streng;
end;

// Sieker