Deutsches Lazarusforum

Hallo,

also wenn diese control.inc in deinem Lazarusverzeichnis ist, dann würde ich mal die Finger davon lassen, da es sich hier um den Quellcode von Lazarus handelt. Das hat dann nichts mit deinem Projekt zu tun.

Wie bist du überhaupt darauf gekommen?

Hallo,

kann es sein das deine alten Programme kein SQL verwendet haben? Ich habe jetzt auch nicht wirklich die Ahnung, aber ich glaube nicht dass du Änderungen auf dem ResultSet einer SQLQuery machen kannst.

Der Name tbSePa deutet darauf hin, dass du ursprünglich eine Tabelle(DBase/Paradox ...

Bernie110 hat geschrieben: So 25. Aug 2024, 18:04 Wie kann Index -1 sein ?
Ich weiss, dass der Eintrag in der Liste ist.

Ich habe es jetzt nicht ausprobiert, aber wenn ich mich recht entsinne braucht du sl.IndexOf und nicht sl.IndexOfName, um den Index des Eintrags zu ermitteln.

@m.fuchs
Danke, ich bin da ganz bei dir!

Ich hätte da 2, hoffentlich hilfreiche, Anmerkungen.

1. Benutze keinen relativen Pfad für den Dateinamen, denn der bezieht sich auf das aktuelle Arbeitsverzeichnis und das ist vielleicht nicht das, was du glaubst das es ist. Wenn du die INI also in deinem Programmverzeichnis suchst, könnte man das ...

wie sind da deine Persönlichen Erfahrungen mit *.exe ,obgleich dies für User, welche sich nicht mit PCs auskennen und nur das Nötigste machen, sicherlich von Vorteil wäre, wenn eine Fehlerbehandlung inklusive ist.
Ehrlich gesagt verstehe ich die Frage gerade nicht so richtig. Fallst du wissen ...

Das Semikolon hinter dem do sieht aber nicht gewollt aus...

Wenn du wirklich nur eine Datei verschieben willst, kannst du das auch mit CopyFile() und DeleteFile() machen.

uses ..., fileutil;

function MoveFile(ASource, ADestination: String): Boolean;
begin
Result:= CopyFile(ASource, ADestination);
if Result then begin
Result:= Result and DeleteFile ...

@wp_xyz: Doch, das macht er, am Ende der While-Schleife.

Ist nur geraten, da man nicht sieht wo der Fehler auftritt, aber das sieht für mich nach dem Fehler aus. Die Objekte der StringListen("patches"), sollten doch erst freigegeben werden, wenn man nicht mehr darauf zugreifen will.

Ich lese den ...

Hast du mal debuggt, was du aus der Datei ausliest, sprich welcher Wert in die Funktion rein kommt?

Ich bastle gerade am Auslesen vom Header und bin da schon auf ein Problemchen mit der Byteorder gestoßen.

Edit: Probier mal den Integer, bevor du ihn der Funktion übergibst, mit SwapEndian ...

Hab mal ein kleines Testprogramm geschrieben. Für mich sieht das decodieren richtig aus.
program project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
Classes
{ you can add units after this }, StrUtils;

//Ausgabe eines Integer in Binär mit vorangestellter "Message" und in ...

Sorry wenn ich mich einmische, aber der Code sah mir noch fehlerhaft aus. So müsste es richtig sein, wenn ich mich nicht täusche.

b := 0;
m := $F7;
while (m <> 0) do
begin
b := b shr 1;
b := b or (a and m); //erst das and von Input und Maske, dann das or mit dem Output
m := m shr 8;
end ...

Hallo Kralle,

ich konnte jetzt mal unter Linux probieren. Nimm mal als Hostname "127.0.0.1" statt "localhost".
Damit lief es bei mir, nachdem ich das selbe Problem hatte.

Unter Windows bekomme ich, zu einer MariaDB(V10.4.27 von XAMPP), mit meiner Demo, problemlos eine Verbindung, obwohl die mysql.dll, die ich habe, eine Version 5.irgendwas ist.

Mir ist bei deinem Code nur aufgefallen, dass du ziemlich viele Connectionunits einbindest. Vielleicht musst du da mal ...

Probier mal dein Beispielprogramm, vom ersten Beitrag, von der Kommandozeile und nicht aus der IDE zu starten. Bei mir hat das, auf einem Ubuntu, geklappt.
Unter Windows funktioniertes auch aus der IDE.