Die Suche ergab 299 Treffer
- Sa 28. Mär 2020, 23:19
- Forum: Programmierung
- Thema: Funktion lässt keine Buchstaben zu
- Antworten: 10
- Zugriffe: 3893
Re: Funktion lässt keine Buchstaben zu
for x := 1 to Length(Barcode) do begin fehlzeichen := 1; for y := 0 to 106 do begin if Barcode[x] = Zeichensatz[y] then begin fehlzeichen := 0; checksumme := checksumme + (x * y); break; end; end; if fehlzeichen = 1 then begin ShowMessage('Das Zeichen ' + Barcode[x] + ' kann nic...
- Sa 28. Mär 2020, 16:45
- Forum: Programmierung
- Thema: Funktion lässt keine Buchstaben zu
- Antworten: 10
- Zugriffe: 3893
Re: Funktion lässt keine Buchstaben zu
For x := 1 To Length(Barcode) do begin //<<<< fehlzeichen := 1; For y := 0 To 106 do begin //<<<< If StrtoInt(MidStr(Barcode, x, 1)) = y Then begin fehlzeichen := 0; checksumme := checksumme + (x * y); end; If fehlzeichen = 1 Then begin ShowMessage('Das Z...
- Mo 16. Sep 2019, 23:41
- Forum: Linux
- Thema: Update Lazarus
- Antworten: 3
- Zugriffe: 6072
Re: Update Lazarus
ich nutze nun seit einem Jahr fpcupdeluxe-x86_64-linux unter Ubuntu 18.04 - läuft Super
https://github.com/LongDirtyAnimAlf/fpcupdeluxe/releases/download/1.6.2x/fpcupdeluxe-x86_64-linux
auf https://github.com/LongDirtyAnimAlf/fpcupdeluxe/releases
https://github.com/LongDirtyAnimAlf/fpcupdeluxe/releases/download/1.6.2x/fpcupdeluxe-x86_64-linux
auf https://github.com/LongDirtyAnimAlf/fpcupdeluxe/releases
- Sa 5. Nov 2016, 01:54
- Forum: Multimedia
- Thema: Lazarus und fpc sind die Rettung für viele ältere Anwendunge
- Antworten: 17
- Zugriffe: 11284
Re: Lazarus und fpc sind die Rettung für viele ältere Anwend
Heul doch! Wenn man von jemanden eine Dienstleistung umsonst wünscht, sollte man Geduld haben und sich nicht im Ton vergreifen, besonders wenn durch die Bereitstellung einer kostenlosen Software inklusive Sourcen bereits eine enorme Vorleistung erbracht wurde. Sicherlich hat Free Pascal und Lazarus ...
- Fr 24. Jun 2016, 14:24
- Forum: Windows
- Thema: Windows 10 Apps starten (Camera) - Tablet
- Antworten: 7
- Zugriffe: 6701
Re: Windows 10 Apps starten (Camera) - Tablet
edge kann man wie folgt aus der Komandozeile starten, warscheinlich geht es mit der Camera App ähnlich
start microsoft-edge:
start microsoft-edge:
- So 15. Mai 2016, 16:48
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
var // start, T1, T2 : word; // word 0 .. 65535 T2: Cardinal; sonst ist dein Array auf 65536 Einträge beschränkt Byte 0 .. 255 Shortint -128 .. 127 Smallint -32768 .. 32767 Word 0 .. 65535 Integer either smallint or longint Cardinal longword Longint -2147483648 .. 2147483647 Longword 0 .. 42949...
- So 15. Mai 2016, 16:37
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
Wie sehen eigentlich deine Variablen-Deklarationen aus?
An welcher Stelle lädst Du die Datei, wie sieht dein kompletter Code aus?
An welcher Stelle lädst Du die Datei, wie sieht dein kompletter Code aus?
- So 15. Mai 2016, 16:29
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
TStringList ist meines Wissens auf 134.217.728 Strings begrenzt (MaxListSize)
- So 15. Mai 2016, 16:02
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
Dragon hat geschrieben:wieso rechnest du bei der stringliste in der schleife -3.
und kann man da überhaupt mit einer stringliste arbeiten ich meine muss dann jedes wort nicht in einer extra zeil vorliegen?
habe ich nun im Code erklärt
- So 15. Mai 2016, 15:51
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
Dragon hat geschrieben:@gocher
Sehe ich das richtig das bei deinem code die whileschleife dann entfällt
nein
- So 15. Mai 2016, 15:50
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
Wenn er es so abegändert hat wie ich es beschrieben habe steht es schon außerhalb der inneren Schleife! Folgendes wäre auch eine Option, von wegen den ganzen Positionsermittlungen und so sl := TStringList.Create; sl.Delimiter := ' '; // Leerzeichen als Wort Trenner sl.QuoteChar := #$0; // keine &quo...
- So 15. Mai 2016, 15:24
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
Der Part
entfällt dann natürlich.
Code: Alles auswählen
if length(database) < 1 then
begin
setlength(database, 1);
end;
entfällt dann natürlich.
- So 15. Mai 2016, 15:21
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
Der folgende Abschnitt noch ungefähr so dann fängt das array Database bei 0 an und der erste Eintrag ist nicht leer: found := false; if length(database)>0 then begin for i2 := 0 to length(Database)-1 do begin if (Database[i2].Wort1 = wort[1]) and (Database[i2].Wort2 = w...
- So 15. Mai 2016, 15:09
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
Auf jeden Fall würde ich nicht immer wieder die Wörter neu ausschneiden! if i = 1 then begin for w := 1 to 3 do begin t1 := PosEx(' ', text , start); wort[w] := copy(text, start, t1-start); start := t1 + 1; end; end else begin wort[1] := wort[2]; wort[2] := wort[3]; t1 := PosEx(...
- Sa 14. Mai 2016, 18:46
- Forum: Freepascal
- Thema: performanceproblem while schleife
- Antworten: 39
- Zugriffe: 16189
Re: performanceproblem while schleife
sage ich ja, das machst du aber nicht! Einfach Deine Routine mit 20 Zeilen testen und das Ergebnis kontrollieren, dann wirst du dich Wundern das Dein Ergebnis wesentlich länger als 20 Zeilen ist. Denn für jedes nicht übereinstimmende Erste Wort in der Ergebnisliste hängst du eine neue Zeile an, das ...