String zwische zwei Zeichen lesen

[Sivale]

Hallo rocksoft,

hat leider etwas länger gedauert. Ich schieb's mal auf's Wetter.

Wie Du ja richtig andeutest, muss der Platzhalter eindeutig sein. Ein $ + irgendetwas + $ wäre an und für sich in Ordnung. Ein Konflikt mit dem Text lässt sich verhindern, weil Du ja ein Anfangs- und ein Endzeichen hast. Machbar ist es.

Es geht aber auch einfacher

Idee:

Du baust in den Text eindeutige Platzhalter von folgendem Format:

§$&001, §$&002, §$&003 ...

Die Abfrage lautet nun:

Delphi-Quellcode:

procedure InsertValues;
Var
i : Integer;
Replace : String;

begin
For i := 1 to YourTable.RecordCount do
    begin
    Replace := '§$&' + Format ('%.3d',[i]); // Format Funktion macht aus 1='001',aus 16 ='016' etc.
    while FindAndReplace (Source,Replace,Insert) do
          begin
          // do nothing
          end;
Memo1.Lines.Add (Source);
end;

Source und Insert kommen aus der Datenbank.

Natürlich wäre es am einfachsten, den Replace-String mit in die Datenbank hineinzunehmen. Hätte auch den Vorteil, dass Platzhalter und Wert "sich gegenüberstehen" und leichter editierbar sind.

Du könntest auch alles in Files speichern und einlesen.

Schreib einfach mal an was Du arbeitest, ich denke, das gesamte Problem läst sich auch einfacher lösen.

Gruß

S.