Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
26. Feb 2010
Jetzt hats Klick gemacht, danke.
Schon witzig, wenn einem so ein Grundlagenproblem nach vielen Jahren Programmiertätigkeit noch nicht untergekommen ist.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
26. Feb 2010
Hab ich schon längst wieder gemacht. :)
Es ging mir nur darum, zu verstehen, was hier schief läuft.
Danke für die Infos und die Geduld.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
26. Feb 2010
Erzeugt und wieder freigegeben habe ich die Stringlist natürlich ausserhalb, eine Property ist diese ja auch nicht:
slSplitString:=TStringList.Create;
try
slSplitString:=ExtractBetween(dummy, 'http://', '.de', '', '', true);
Memo.Lines.AddStrings(slSplitString);
finally
slSplitString.Free;
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
22. Feb 2010
Hallo omata,
da hat sich ein kleiner Copy&Paste-Fehler in der 2. Procedure versteckt:
In
procedure ExtractBetween(const aSource, aPrefix, aSuffix : string;
aFindAll : Boolean; aNewPrefix, aNewSuffix : string;
aWords : TStrings);
var
PrefixLength, PosPrefix, PosSuffix, BestPos : Integer;