Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
29. Jun 2006
Hallo.
Du hast alles richtig verstanden, denke ich. Die zu untersuchenden Daten wolltest du in deinem Eröffnungsbeitrag in einem Memo bereit stellen, deshalb habe ich dazu keinen Code gezeigt. Wenn es dir gefällt, dann kannst du die Daten auch in RichEdit.Lines bereit stellen oder in ListBox.Items - die Prozedur CustomExtract() will ja nichts über die visuelle Komponente wissen, sie braucht...
Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
28. Jun 2006
Zu meinem Code aus Beitrag #7 ein paar Erklärungen:
Mit der Funktion After() extrahierst du den Teil eines Strings, der einem bestimmten Teilstring folgt. After('ABCDE', 'C') liefert dir als Ergebnis 'DE', After('ABCDE', 'F') liefert einen leeren String.
Die Funktion Between() liefert den String zwischen zwei bestimmten Teilstrings. Between('ABCDE', 'A', 'E') liefert das Ergebnis 'BCD'.
...
Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
28. Jun 2006
Guten Morgen.
So könnte es funktionieren:
function AnsiContainsText(const s, subStr: String): Boolean;
begin
Result := AnsiPos(AnsiLowercase(subStr), AnsiLowercase(s)) > 0;
end;
marabu
Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
27. Jun 2006
Hier hast du etwas Code zum Studieren:
uses
StrUtils; // PosEx(), AnsiContainsText()
function After(const s, subStr: String): String;
var
i: Integer;
begin