Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
31. Jul 2009
ich hab mal ein bissel probiert.
Hab das jetzt gefunden!
Die funktion für die Länge ist in Tperlregex:
regexMachine.MatchedExpressionLength;
Und die Positionbestimmen:
regexMachine.MatchedExpressionOffset;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
31. Jul 2009
pos := regexMachine.matchedstart; // Warum ist das den Falsch
~~~~~~~~~~~~
Hab ich das falsch verstanden?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
31. Jul 2009
Hab ich auch gesehen war bloß zu schnell mit dem versenden! :wink:
Genau sowas hab ich gesucht (die lösung ist genial)! :thumb:
vielen dank erstmal allen die mir Geholfen haben (DeddyH,ULIK)!
Und jetzt zu der Pos.
Wie bekomme ich die Position des Gefundenen Strings Raus?
Wie in der C# gibt es ja den befehl
mc.Index;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
31. Jul 2009
statt den Repeat...Until?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
31. Jul 2009
SetLength(code, 0); //Array initialisieren
with TPerlRegEx.Create(nil) do
...
if Match then
begin
repeat
nOldIndex := Length(code);
setlength(code, nOldIndex + SubExpressionCount); // warum dann noch + SubExpressionCount
for n := 0 to SubExpressionCount - 1 do
code := SubExpressions; // warum nicht nur n?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
Ne das geht nicht weil ja SubExpressions Die "suchergebnisse" hat und das ist in einem Array gespeichter und ich will Die Daten in ein anderes Array Übertragen.
Hab das trotzdem gemacht funktioniert nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
ich hab mal getestet und bin auf diese Zeile gekommen:
54: code := SubExpressions;
55: Breack until MatchAgain;
Sobald ich den Breackpoint dahinter setze bringt er den fehler wo ich davon ein bild gemacht hab.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
Hab mal ein Bild vom Programm gemacht
wenn man auf dem Button Oben Fehler meldung
und unten Warnung beim Erzuegen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
SubExpressions:string;
SubExpressionCount : integer;
Und wie meinst du das mit dem initialisieren des result!
In verarbeitung ist doch alles soweit richtig?
function verarbeitung(code:array of string;pos:array of integer):string;
var
i:integer;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
ach und der mekert an der zeile
code := SubExpressions;
//heist das nicht SubexpressionCount?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
Aber da ändert sich das porblem doch nicht?
function verarbeitung(code:array of string;pos:array of integer):string;
var
i:integer;
begin
for i := low(code) to high(code) do
result := result + code + '|' + ',';
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
wenn ich dort das weg mache kommt wieder der feher wie oben? :?:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
so jetzt kommt ein fehler "Fehler bei Bereichsprüfung" in der Gleichen Zeile ?
Was soll den das sein? :gruebel:
Hat das irgend was mit meinem Regulären Ausdruck zu tun?
Ich bin mir eigend lich sicher das dass so richtig ist(denken kann man viel :wink: ).
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
function verarbeitung(code:array of string;pos:array of integer):string;
var
i:integer;
begin
for i := 0 to high(code) do
result := result + code + '|' + ',';
end;
function regl(subj, expr: string): string;
var
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
wie kann ich die länge eines arrays bestimmen?
length(code) //stimmt ja nicht
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chefx,
30. Jul 2009
Hallo ich bin es mal wieder! :lol:
...
uses perlregex;
{$R *.dfm}
function verarbeitung(code:array of string;pos:array of integer):string;