String lässt sich nicht mit Char addieren

[Tyler]

Salut

ich post einfahc mal den Code und danach das Problem:

Delphi-Quellcode:

  if ed_telefon.Text <> '' then
  begin
    t := '';
    s := ed_telefon.Text;
    for i := 0 to Length( s ) - 1 do
    begin
      t := t + s[i] + '%';
    end;
    s := QuotedStr( t );
    f_main.Caption := t;
  end;

t ist und bleibt leer... s und t und i werden lokal deklariert und im Editfeld steht definitv was. Durch rumprobieren hab ich bereits rausgefunden, dass das Problem in der FOR-TO-Schleife auftritt..

Jemand ne Idee?


tyler

[Union]

Zitat von Tyler:

Salut

ich post einfahc mal den Code und danach das Problem:

Delphi-Quellcode:

  if ed_telefon.Text <> '' then
  begin
    t := '';
    s := ed_telefon.Text;
    for i := 0 to Length( s ) - 1 do
    begin
      t := t + s[i] + '%';
    end;
    s := QuotedStr( t );
    f_main.Caption := t;
  end;

t ist und bleibt leer... s und t und i werden lokal deklariert und im Editfeld steht definitv was. Durch rumprobieren hab ich bereits rausgefunden, dass das Problem in der FOR-TO-Schleife auftritt..

Jemand ne Idee?


tyler

Pascal strings fangen bei [1] an, in [0] steht das Längenbyte.

[Tyler]

naja, dann müsste t aber zumindest die restlichen Zeichen von s enthalten, da ich ja der Länge nach hochzähle? Ich werd erstmal die Null durch eine Eins ersetzen, mal sehen was passiert


thx so weit


tyler