Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
5. Jun 2008
Du hast den Rückgabewert ja nicht ausgewertet.procedure TForm1.Button1Click(Sender: TObject);
var bla: TStellen;
begin
bla := GetPosAndCount('abcdddef','d');
ShowMessage(Format('Position %d, Anzahl %d',));
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
5. Jun 2008
Oder vielleicht etwas in der Art:type TStellen = record
First,
Count: integer;
end;
function GetPosAndCount(const s: string; const c: Char): TStellen;
var i: integer;
begin
Result.First := 0;
Result.Count := 0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
5. Jun 2008
Nur die Anzahl der direkt aufeinander folgenden Nullen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Apr 2008
Hast Du den Code aus #13 denn auch komplett kopiert und bei Dir eingefügt (am Besten direkt unter "implementation")?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Apr 2008
Wenn Du die Funktion aus meinem letzten Posting nimmst (die ist noch nicht optimal, funktioniert aber), könntest Du das z.B. so machen:procedure TForm5.Button1Click(Sender: TObject);
var Results: TDynIntArr;
i: integer;
begin
ListBox1.ClearSelection;
SearchSubString(Edit1.Text,'#',ListBox1.Items,Results,);
for i := 0 to High(Results) do
ListBox1.Selected] := true;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
17. Apr 2008
Na gut, einen hab ich noch:type TDynIntArr = array of integer;
TMySearchOption = (soIgnoreCase, //Groß-/Kleinschreibung ignorieren
soSomewhere, //Suchstring kann irgendwo enthalten sein
soIsBeginning); //Suchstring steht am Anfang, weitere Zeichen können folgen
TMySearchOptions = set of TMySearchOption;
procedure...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
17. Apr 2008
So, vielleicht warten mir erstmal ab, was der T.E. dazu sagt :mrgreen:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
17. Apr 2008
Dann eben so:type DynArr = array of integer;
procedure SearchSubString(const s, //gesuchter String
Sep: string; //Trennstring
const sList: TStrings; //Liste
var ResultArr: DynArr); //dynamisches Array nimmt Trefferpositionen auf
var i: integer;
begin
SetLength(ResultArr,0);
i :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
17. Apr 2008
Noch ein Vorschlag:function SearchSubString(const s, //gesuchter String
Sep: string; //Trennstring
const sList: TStrings //Liste
): integer; //gefundene Position in der Liste
var found: Boolean;
i: integer;
begin
found := false;
Result := -1;
i := 0;