Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
5. Jun 2008
s ist da, worin gesucht werden soll, c ist ein Buchstabe, nach dem gesucht werden soll.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
5. Jun 2008
i := Pos('0', str);
if i > 0 then
MachWas;
Damit findest Du einmal die erste Null, weiter wird nicht gesucht.
Mit einer While-Schleife kannst Du dann noch solange von i + 1 weiterlaufen, bis das gefundene Zeichen <> 0 ist.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
5. Jun 2008
Mit Pos ist das zu ermöglichen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
17. Apr 2008
Gerade jetzt, wo es lustig ist. :cry:
:tongue:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
17. Apr 2008
Und das ganze noch ein bisschen verbessert, da bei Detlefs Lösung nur exakte Strings gefunden werden:
type TDynIntArray = array of Integer;
procedure SearchSubString(const s, //gesuchter String
Sep: string; //Trennstring
const sList: TStrings; //Liste
var ResultArr: TDynIntArray); //...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
17. Apr 2008
Du hast das gleiche Problem, wenn sich mehrere Autoren finden. Das ganze ein bisschen erweitert:
function SearchSubString(const s, //gesuchter String
Sep: string; //Trennstring
const sList: TStrings //Liste
): String; //Kommatext mit den gefundenen Items
var
i, max: integer;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
17. Apr 2008
Das mit dem Break finde ich nicht so ideal. Was machst Du, wenn der in der Liste ein Autor mehrmals vertreten ist?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Die Muhkuh,
17. Apr 2008
Um noch ein paar Fehler mehr aufzulisten:
autorfeld.Text:=suchbegriff;
Ist wohl andersrum gemeint.
gefunden:=n;
Du hast n nichts zugewiesen, was soll das bringen?
Listenfenster.Items.Strings;
Da steht einzeln in Zeile 10, was soll das bringen?