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
CODE:
const s = '123-23-45-123';type TIntegers = array of integer;var Funde: TIntegers; function FindStrings(const substr, s: string): TIntegers; begin Result := [4, 7, 10]; // Nur als Pseudo end;begin Funde := FindStrings('-', s); WriteLn(Length(Funde));end.
Statistik: Verfasst von Mathias — Mo 18. Mär 2024, 19:35
Statistik: Verfasst von Mathias — Mo 18. Mär 2024, 19:06
Statistik: Verfasst von theo — Mo 18. Mär 2024, 18:56
CODE:
ATImageBox1.LoadFromFile(DirectoryPath + '/' + FileListBox1.GetSelectedText);
Statistik: Verfasst von Rhyt — Mo 18. Mär 2024, 17:58
Statistik: Verfasst von Jokra — Mo 18. Mär 2024, 15:39
Statistik: Verfasst von af0815 — Mo 18. Mär 2024, 15:14