Statistik: Verfasst von m.fuchs — Di 19. Mär 2024, 11:59
Wen dies so ist, gibt es sicher eine C-lib, welches dies kann.Könnte es sein, daß bei FMX die Bilddatei in die Grafikkarte geladen wird und dann von der Grafikkarte dekodiert und auf die Oberfläche gedonnert wird?
Statistik: Verfasst von Rhyt — Di 19. Mär 2024, 10:23
Statistik: Verfasst von Rhyt — Di 19. Mär 2024, 10:22
Ich bevorzuge in diesem Fall while true do... , wenn es wirklich notwendig ist.Würde Pascal eine Schleifensyntax anbieten, die hier ohne zwei Abbruchbedingungen auskommen würde, würde ich ich sie nehmen. Gibt es meines Wissens aber nicht.
Man kann es einfach durch Repeat ... until false; ersetzen, wenn man möchte.
Statistik: Verfasst von theo — Di 19. Mär 2024, 09:59
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