String Problem

[Luckie]

Guck dir im Debugger mal die variable an. Steht am Ende eventuell ein #0 oder ein anders Steuerzeichen?
ATLN := Trim(ATLN);

[blaky]

Zitat von Luckie:

Guck dir im Debugger mal die variable an. Steht am Ende eventuell ein #0 oder ein anders Steuerzeichen?
ATLN := Trim(ATLN);

... shit zu früh gefreut klappt doch nicht

[blaky]

Code:

    if ((Pos('33', readline) = 1) and (readline[4] = '0')) then // Langrufnummer kommenden Tln.
    begin
      readline_identifiziert:= true;
      for I := 11 to 34 do
        begin
          if readline[I] =' ' then break else
             ATLN:=ATLN+readline[I];
        end;
       ATLN := Trim(ATLN);
       showmessage(datetostr(date)+' '+timetostr(time)+'-> kommender Anruf von RufNr: '+ ATLN +' auf Nst: ' + readline[6] + readline[7] + readline[8] + readline[9]);

    end;

selbst mit Trim funktioniert es nicht ??? nach ATLN ist schluss

[himitsu]

Ist readline überhaubt mit genug Zeichen gefüllt?

Schalte mal die Bereichsprüfung an, in den Projektoptionen.

Zitat von Bernhard Geyer:

Wie wäre es mit Berücksichtigung der Compilerwarnung das ein nicht initialisierte Variable verwendet wird?

Strings sind immer initialisiert, da dieses automatisch geschieht.

[Bernhard Geyer]

Zitat von himitsu:

Zitat von Bernhard Geyer:

Wie wäre es mit Berücksichtigung der Compilerwarnung das ein nicht initialisierte Variable verwendet wird?

Strings sind immer initialisiert, da dieses automatisch geschieht.

Stimmt. Habs mit allen anderen lokalen Variablen verwendet

[blaky]

die readline ist immer genug gefüllt..

habe gerade festgestellt das es sporadisch mit

Code:

Trim(ATLN);

funktioniert aber nur sporadisch

das bringt mich zum Schluss das in der readline außer Leer und Steuerzeichen sporadisch noch andere Zeichen sind

jemand ne Idee wie ich alles außer Zahlen 0-9 rausfiltere?

[Klaus01]

.. da gab es vor kurzem mal einen Thread dazu

Grüße
Klaus

[DeddyH]

Delphi-Quellcode:

for I := 11 to 34 do
  case readline[I] of
    ' ': break;
    '0'..'9': ATLN := ATLN+readline[I];
  end;

Ungetestet, sollte aber tun.

[edit]

Zitat von p80286:

p.s.
readln ist echt nicht so DER Name für eine Variable

Hab ich auch erst gedacht, aber da die Prozedur ReadLn und die Variable ReadLine heißt, sollte sich da nichts beißen. [/edit]

[blaky]

die readline wird fremd über eine TCP Verbindung gefüllt
aber
ich glaub ich habs..

hab jetzt mit ner 2. Variable und ner 2. For Schleife gelöst

Code:

var
readline: string;
ATLN: string;
ATLNx: string;

if ((Pos('33', readline) = 1) and (readline[4] = '0')) then // Langrufnummer kommenden Tln.
    begin
      readline_identifiziert:= true;
      for I := 11 to 34 do
        begin
           ATLN:=ATLN+readline[I];
        end;

      for I := 0 to length(ATLN) do
         begin
          if ((ATLN[i] = '0') or (ATLN[i] = '1') or (ATLN[i] = '2') or (ATLN[i] = '3') or (ATLN[i] = '4') or (ATLN[i] = '5') or (ATLN[i] = '6') or (ATLN[i] = '7') or (ATLN[i] = '8') or (ATLN[i] = '9')) then
              begin
                ATLNx:=ATLNx+ATLN[i];
              end;
         end;
       ATLNx := Trim(ATLNx);
       showmessage(datetostr(date)+' '+timetostr(time)+'-> kommender Anruf von RufNr: '+ ATLNx +' auf Nst: ' + readline[6] + readline[7] + readline[8] + readline[9]);

    end;

wer etwas eleganteres hat bitte nicht zögern

[Union]

readline ist kürzer als 34 Stellen. Du liest dann "hinter" dem String irgendwas, das dort im Speicher steht.
Mit diesem String geht es nicht:

Code:

readline := '33020AMT1x000000000x000000000x001';

mit diesem geht es

Code:

readline := '33020AMT1x000000000x000000000x001x';

Du solltest dein for umstellen auf:

Delphi-Quellcode:

      i := 11;
      while i <= 34 do
      begin
         if readline[i] in [#0, #32] then break;
         ATLN:=ATLN+readline[I];
         inc(i);
      end;

Und um so was rauszufinden, schliess Deine Funktion in {$R+} {$R-} ein.