Hvert andet bogstav

Okay, for det første ville det se således ud:

d[e]t[t]e[ ]e[r] [e]n [t]e[s]t

...hvis det skulle være hvert anden char!

Så brug denne funktion:

function Hest(S: String): String;

  function Hale(C: Char): String;
  begin
    Result := '[' + C + ']'
  end;

var
  I: Integer;
begin
  for I := 0 to Length(S) do
    if I mod 2 = 0 then
      Result := Result + S[I]
    else
      Result := Result + Hale(S[I]);
end;

hermandsen :
>Okay, for det første ville det se således ud:
>d[e]t[t]e[ ]e[r] [e]n [t]e[s]t
Nej, det ville se sådan her ud lol
din : d[e]t[t]e[ ]e[r] [e]n [t]e[s]t
min : d[e]t[t]e[ ]e[r] [e]n[ ]t[e]s[t]

hermandsen, din kode virker ikke

FormatC ->
Prøv med

function Hest(S: String): String;

  function Hale(C: Char): String;
  begin
    Result := '[' + C + ']'
  end;

var
  I: Integer;
begin
  for I := 0 to Length(S) do
    if I mod 2 = 0 then
      Result := Result + S[I]
    else
      Result := Result + Hale(S[I]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Caption := Hest('dette er en hest');
end;

Min bærbar hvor Delphi er inde er lige til reperation, men så vidt jeg kan se skulle der da ikke være noget galt med min kode...

Kan godt se at jeg lavede en lille brøler med alle de [x]f-tingester, but nobody's perfect! ;)

Nu har jeg heller ikke testet det i delphi men for mig ser din kode også god nok ud.

/klaus

Prøv med

function Hest(S: String): String;

  function Hale(C: Char): Char; //Her har jeg ændret!
  begin
    Result := '[' + C + ']'
  end;

var
  I: Integer;
begin
  for I := 0 to Length(S) do
    if I mod 2 = 0 then
      Result := Result + S[I]
    else
      Result := Result + Hale(S[I]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Caption := Hest('dette er en hest');
end;


Ved ikke om det har nogen betydning?

Det har ingen betydning, glem det!

Eller jo, det har betydning, brug det ikke, det gir' fejl!

Brug en af de første udgaver.

Så kom bærbaren tilbage fra reperation og funktionen er testet! ;)
Der er en enkelt lille fejl ved min funktion... for-løkken skal selvfølgelig startes ved 1! ;)

Her er et helt program der virker...

Project1.dpr
----------------------------------------------------------------------
program Project1;
{$APPTYPE CONSOLE}

function Hest(S: String): String;

  function Hale(C: Char): String;
  begin
    Result := '[' + C + ']'
  end;

var
  I: Integer;
begin
  for I := 1 to Length(S) do
    if I mod 2 = 0 then
      Result := Result + S[I]
    else
      Result := Result + Hale(S[I]);
end;

var
  S: String;
begin
  Readln(S);
  Writeln(Hest(S));
  Readln;
end.
----------------------------------------------------------------------

Bare kompiler det, skriv en lille sætning tryk enter, se resultatet og tryk enter igen for at lukke programmet!