Die Suche ergab 299 Treffer

von gocher
Sa 28. Mär 2020, 23:19
Forum: Programmierung
Thema: Funktion lässt keine Buchstaben zu
Antworten: 10
Zugriffe: 1067

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...
von gocher
Sa 28. Mär 2020, 16:45
Forum: Programmierung
Thema: Funktion lässt keine Buchstaben zu
Antworten: 10
Zugriffe: 1067

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...
von gocher
Mo 16. Sep 2019, 23:41
Forum: Linux
Thema: Update Lazarus
Antworten: 3
Zugriffe: 1304

Re: Update Lazarus

von gocher
Sa 5. Nov 2016, 01:54
Forum: Multimedia
Thema: Lazarus und fpc sind die Rettung für viele ältere Anwendunge
Antworten: 17
Zugriffe: 8087

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 ...
von gocher
Fr 24. Jun 2016, 14:24
Forum: Windows
Thema: Windows 10 Apps starten (Camera) - Tablet
Antworten: 7
Zugriffe: 4092

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:
von gocher
So 15. Mai 2016, 16:48
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

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...
von gocher
So 15. Mai 2016, 16:37
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

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?
von gocher
So 15. Mai 2016, 16:29
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

Re: performanceproblem while schleife

TStringList ist meines Wissens auf 134.217.728 Strings begrenzt (MaxListSize)
von gocher
So 15. Mai 2016, 16:02
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

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
von gocher
So 15. Mai 2016, 15:51
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

Re: performanceproblem while schleife

Dragon hat geschrieben:@gocher
Sehe ich das richtig das bei deinem code die whileschleife dann entfällt


nein
von gocher
So 15. Mai 2016, 15:50
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

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...
von gocher
So 15. Mai 2016, 15:24
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

Re: performanceproblem while schleife

Der Part

Code: Alles auswählen

 if length(database) < 1 then
      begin
        setlength(database, 1);
      end;

entfällt dann natürlich.
von gocher
So 15. Mai 2016, 15:21
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

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...
von gocher
So 15. Mai 2016, 15:09
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

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(...
von gocher
Sa 14. Mai 2016, 18:46
Forum: Freepascal
Thema: performanceproblem while schleife
Antworten: 39
Zugriffe: 10223

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 ...