Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
29. Jun 2006
Hallo Marabu funktioniert trotzdem nicht wenn ich die Daten zB in "sIn" bereitstelle also
sIn.Strings := '(Deutsche Bank) das ist das Schlüsselwort Konto';
dann müsste er mir doch im ersten Schleifendurchgang wenn i noch 0 ist mir in "sOut" das ausgeben
"Deutsche Bank" + Leerzeichen + "Konto"
funktioniert aber leider nicht :(
Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
28. Jun 2006
Funktion CustomExtract kapier ich immer noch nicht ! Erst wird wenn ich das richtig verstanden habe in "sIn" nach den Klammern gesucht dazu also der Aufruf der Funktion (Between)
"s := Between(sIn, '(', ')');"
Wenn also das der Fall ist dann wird geschaut was alles hinter der Klammer ")" ist und dann nach dem Keyword gesucht
und zwar mit dem Aufruf
"if AnsiContainsText(After(sIn,...
Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
28. Jun 2006
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
sZB : String;
Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
28. Jun 2006
Hallo
In der Funktion CustomExtract wird ja wenn ich es richtig verstehe der Variable s das gesuchte Wort in den Klammern + ein Leerzeichen + das Schlüsselwort übergeben. Ich weis jetzt nur nicht so recht was der Aufruf der Funktion CustomExtract(Memo.Lines, ListBox.Items, 'Konto'); mit dem Memo und der listBox genau bewirkt. Marabu könntest du vielleicht wenn du mal Zeit hast die ganzen...
Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
28. Jun 2006
Hallo marabu
PosEx und AnsiContainsText geht bei meinen Delphi nicht (D5 Standard) könnte aber auch (Firma) D5 Enterprise benutzen Ich habe die PosEx Funktion hier aus dem Forum schon eingebunden fehlt nur noch die AnsiContainsText
function PosEx(const SubStr, S: string; Offset: integer): integer;
begin
Result := Pos(SubStr, Copy(S, OffSet, Succ(Length(S) - OffSet)));
if Result...
Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
27. Jun 2006
Hallo
Ich habe es erstmal so gelöst zumindest wird der gesamte jeweilige Text des Memo.Lines.Strings nach einem bestimmten Wort durchsucht und dieses dann ausgegeben Wie ich aber nun noch alles was in Klammern steht auslesen kann hab ich noch nicht rausgefunden
var
i: Integer;
sText: String;
slDat: TStringList;
Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
27. Jun 2006
Hallo s.h.a.r.k ja genau das Wort in den Klammern und wenn hinter den Klammern z.b noch ein Satz steht un in diesem das Wort "Konto" auftaucht dann dieses ebenfalls mit ausgeben
Forum: Sonstige Fragen zu Delphi
Delphi
by delphiUser88,
27. Jun 2006
Hallo ich möchte gerne bestimmte Datensätze in einem Memo suchen und diese dann gesondert an einer Variable weitergeben. Ich versuche es mal verständlich zu erklären.
Also ich habe eine Schleife in dieser möchte ich das Memo nach bestimmten Daten durchsuchen der erste Datensatz der ausgelesen werden muss ist immer zwischen 2 Klammern also (Datensatz1) der dazugehörige Datensatz steht direkt...