Copy Pos Delete - Bin auf dem Holzweg...

[Tyler]

ola!

ich hab´s bei mir n bisschen kürzer:

Delphi-Quellcode:

        temp1 := memo1.Text;
        repeat
          i := 0;
          repeat
            i := i + 1;
          until temp1[i] = '+';
          memo2.Lines.Add(LeftStr(temp1,i-1));
          Delete(temp1,1,i);
        until temp1 = '';

hier wird der text in einem memo1 nach dem Trennzeichen "Plus" abgesucht, der Text davor erst kopiert, dann entsprechend abgeschnitten,und als separate Line in eine 2. Memobox geschrieben.


tyler