Statistik: Verfasst von Mathias — Di 19. Mär 2024, 08:27
Statistik: Verfasst von Mathias — Di 19. Mär 2024, 08:25
CODE:
{$modeswitch arrayoperators on}uses SysUtils;const s = '(123,abc,456,def)'; type TIntegers = array of integer;var Funde: TIntegers; function FindStrings(s: string): TIntegers; var i: integer; begin Result := []; for i := 1 to Length(s) do begin if s[i] in ['(', ',', ')'] then begin Result += [i]; end; end; end; Funde := FindStrings(s); WriteLn(Length(Funde));
Oder noch viel einfacher, da habe ich sogar schon die einzelnen Strings fertig.CODE:
sa := s.Split('(,)');
Statistik: Verfasst von Mathias — Di 19. Mär 2024, 08:22
Statistik: Verfasst von TSchnuckenbock — Di 19. Mär 2024, 07:49
Statistik: Verfasst von Jorg3000 — Di 19. Mär 2024, 07:17
Statistik: Verfasst von kirchfritz — Di 19. Mär 2024, 06:56
CODE:
type TIntegers = array of SizeInt;function FindStrings(const substr, s: string): TIntegers;var p, ArrLen, SubLen: SizeInt;label Loop;begin Result:=[]; ArrLen:=0; SubLen:=Length(substr); p:=1; Loop: p:=Pos(substr,s,p); if p<=0 then Exit; inc(ArrLen); SetLength(Result,ArrLen); Result[ArrLen-1]:=p; inc(p,SubLen); Goto Loop;end;
Statistik: Verfasst von Jorg3000 — Di 19. Mär 2024, 05:25
Statistik: Verfasst von wp_xyz — Di 19. Mär 2024, 00:58
CODE:
jpg.Scale := jsQuarter; jpg.Performance := jpBestSpeed; t := Now; jpg.LoadFromFile(DirectoryPath + '/' + FileListBox1.GetSelectedText); ATImageBox1.Picture.Assign(jpg);
Statistik: Verfasst von Rhyt — Mo 18. Mär 2024, 22:50
Jetzt leuchtet es mir ein, definitiv kein Bug.Das ist doch ein "Procedural Type", also ein Funktionspointer. Der muss m.E. immer mit Klammern aufgerufen werden, um es von der Funktionsadresse abzugrenzen.
Statistik: Verfasst von PascalDragon — Mo 18. Mär 2024, 22:32
Statistik: Verfasst von wp_xyz — Mo 18. Mär 2024, 22:05
Statistik: Verfasst von theo — Mo 18. Mär 2024, 21:31
Statistik: Verfasst von wp_xyz — Mo 18. Mär 2024, 21:28
Statistik: Verfasst von theo — Mo 18. Mär 2024, 20:27
Statistik: Verfasst von Rhyt — Mo 18. Mär 2024, 19:49