Deutsches Lazarusforum

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

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 Zeichen ' + MidStr(Barcode ...

ich nutze nun seit einem Jahr fpcupdeluxe-x86_64-linux unter Ubuntu 18.04 - läuft Super
https://github.com/LongDirtyAnimAlf/fpc ... 6_64-linux
auf https://github.com/LongDirtyAnimAlf/fpc ... e/releases

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

edge kann man wie folgt aus der Komandozeile starten, warscheinlich geht es mit der Camera App ähnlich
start microsoft-edge:

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

Wie sehen eigentlich deine Variablen-Deklarationen aus?
An welcher Stelle lädst Du die Datei, wie sieht dein kompletter Code aus?

TStringList ist meines Wissens auf 134.217.728 Strings begrenzt (MaxListSize)

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

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

nein

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

Der Part entfällt dann natürlich.

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 = wort[2]) and (Database ...

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

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