Zeichen an einer Position Extrahieren

[inherited]

Zitat von hedie:

Ok ich hab gesucht aber leider nichts gefunden

Glaub ich zwar nicht, aber bitte

Delphi-Quellcode:

  Edit1.Text:=Copy(Memo1.Text, 7, 5); //kopiert aus dem Text des Memos den Text ab Position 7, 5 Zeichen lang
  Edit2.Text:=Copy(Memo1.Text, Pos('"', Memo1.Text), PosEx('"', Memo1.Text, Pos('"', Memo1.Text)+1)); //Kopiert Aus memo1.Text Den text zwischen dem ersten und 2. Anführungszeichen heraus...verbesserungswürdig, zur demonstration reicht es aber!