Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
27. Dez 2005
Also...
Mein Fehler war, das ich das Exec vergessen hatte^^ funzt jetzt.
Nun habe ich noch folgende Funktion geschrieben, um eine Maske mit einfacher %Platzhalter% Syntax RegExpr-kopatibel zu machen und gleichzeitig (für den zweiten schritt, das einsetzen in die zweite Maske, eine Tabelle ID:Variable anzulegen)
TData = record
Name: String;
ID: Integer;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
27. Dez 2005
es fängt ja schon damit an, das Create bei mir keine Parameter hat^^
procedure OnEditChange(Sender: TObject);
var S: String;
R: TRegExpr;
begin
try
R:=TRegExpr.Create;
R.Expression:=Edit1.Text;
R.InputString:=Edit2.Text;
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
27. Dez 2005
habs nun so:
var R: TRegExpr;
begin
R:=TRegExpr.Create;
R.Expression:='^(.*?) ist (.*?)$';
R.InputString:=Edit1.Text;
R.Compile;
Edit2.Text := 'Der User findet ' + r.Match + ' ' + r.Match + '!';
R.Free;
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
27. Dez 2005
nein, das ganze soll so gehen (Pseudocode):
function AdvReplace(Value,Mask1,Mask2: String):String;
var Vars: TVars;
begin
Vars:=StoreVars(Value,Mask1);
Result:=InsertVars(Vars,Mask2);
end;
also bei dem Beispiel