Hallo,
mal auf die Schnelle, mit Pos und PosEx:
Delphi-Quellcode:
function FindeWert(const aText, aSuche:String):String;
var x1, x2:Integer;
begin
Result:='';
x1:=Pos(aSuche, aText); // Ist Suchtext überhaupt vorhanden?
if (x1>0) then
begin
x1:=PosEx('"', aText, x1+Length(aSuche)); // 1. Anführungszeichen suchen
if (x1>0) then // gefunden?
begin
x2:=PosEx('"', aText, x1+1); // 2. Anführungszeichen suchen
if (x2>0) then // gefunden?
Result:=Copy(aText, x1+1, x2-x1-1) // Ergebnis zusammenbasteln
end;
end;
end; // FindeWert
Nun kannst Du den entsprechenden Wert folgendermaßen erhalten:
Delphi-Quellcode:
...
const
teststring='Name1= "Meier" Name2= "Schmidt" Strasse= "Hauptstrasse 22" Vorname= "Bernd" usw....';
...
...
ShowMessage(FindeWert(teststtring, 'Strasse='));