Wort aus Textdatei laden

[scrat1979]

Das Prinzip ist das selbe:

1. Kopiere String bis auf das letzte Zeichen (= Anführungszeichen)
2. Mit einer Schleife von HINTEN nach dem ersten Treffer auf Anführungszeichen testen
3. Den String von Position 2.) bis zum Ende Kopieren.... Fertig!


... so aus dem Kopf:

Delphi-Quellcode:

 [...]
 test := 'bind "o" "say Delphi Praxis ist super!"';

 var2 := copy(test, 1, length(test)-1);

 for i := length(var2) downto 1 do
   if var2[i] = '"' then begin;
       zeichen := i;
       break;
   end;

 ergebnis := copy(var2, zeichen+1, length(var2));

Vielleicht statt einer FOR-Schleife eine "while"-Schleife verwenden und damit break; vermeiden...


SCRaT