Hmm, lille fejl...

oki, det her en en procedure der skulle behandle en string der kommer ind... i den string er der nogle CRLF (er defineret som const) .. for hver af dem skulle den gerne dele op og skrive hver enkelt del af den sting ud seperat... (skal senere bruge det til at behandle enkelt dele af dem..) men den kan ikke helt finde ud af det.. der må tydeligvis være en fejl et sted.. SplitText kommer her til at indeholde \'tekst\' i første gennemløb
\'tekst\'+crlf+\'tekst2\' i anden gennemløb, \'tekst\'+crlf+\'tekst2\'+crlf+\'tekst3\' i tredje.. osv osv ..

Jeg skal bare høre hvor min fejl er..
Når jeg kører debuggeren så hopper den noed over:
      TempInt := i+1;

Forstår jeg ikke helt.. jeg er da på det tidspunkt ikke inde i en løkke eller noed der \"låser\" TempInt, er jeg?


procedure TForm1.MisTreat(X: String);
var
TempInt : integer;
i, j : integer;
SplitText : String;
begin
ListBox1.Items.Add(X);
for i := 1 to length(x) do
  begin
    TempInt := 1;
    if X[i-1] + X[i] = CRLF then
      begin
        for j := TempInt to i do
          begin
            SplitText := SplitText + X[j];
          end;
      Memo2.Lines.Add(SplitText);
      TempInt := i+1;
      SplitText := \'\';
      end;
  end;
end;