datenbank per skript erstellen lassen

[marabu]

Hallo Martin,

wenn du es zur Laufzeit brauchst, dann denke dir einfach ein paar passende Metazeichen aus, welche deine Variablen identifizieren:

Code:

CREATE TABLE {TBL} (ID INTEGER, TXT VARCHAR(1000))

Dann schreibe dir eine Funktion, welche diese Variablen mit Werten belegt:

Delphi-Quellcode:

function ProcessScript(fn: TFileName; s: TStrings): String;
var
  i: Integer;
  varname: String;
  script: TStringList;
begin
  script := TSTringList.Create;
  script.LoadFromFile(fn);
  for i := 0 to Pred(script.Count) do
    repeat
      varname := Between(script[i], '{', '}');
      if varname = '' 
        then Break
        else script[i] := Before(script[i], '{') + s.Values[varname] + After(script[i], '}');
    until False;
  Result := script.Text;
  script.Free;
end;

Getippt und nicht getestet.

Grüße vom marabu