Deutsches Lazarusforum

Hallo Gemeinde, ich versuche vergeblich Firebird Embedded zum laufen zu bringen. Lazarus Version 2.0.4. Ich habe die neueste Version (Firebird-3.0.3.33054-0_x64.zip) runtergeladen. Die Datenbankdatei habe ich mit dieser Version aus einem Backup hergestellt (gbak.exe) Die Dateien: Ordner intl und plu...

In Delphi keine Problem ... habe schon auf ComboBox umgestellt

Hallo allerseits, ich versuche gerade den Tabs im Tabcontol IDs mitzugeben. Quellcode funktioniert in Delphi.   //Object: type TFid = class public id: Integer; constructor Create(fid: Integer); end;   ......   constructor TFid.Create(fid: Integer); begin id := fid; end;   //TabContro...

Funktioniert type procedure TfrmMain.seSourceFileAdded(Sender: TObject; Item: TListItem); var fExt : String; begin // ersten Teil vom String "xyz.jpg - verknüpfung.lnk" vor dem "-" fExt := Trim(GetCSVBit(Item.Caption,'-',0)); // mit * alle Dateien zulassen...

Du könntest dich ins Ereignis OnFileAdded reinhängen, die lnk-Datei öffnen und dann prüfen, ob der Link auf eine jpg-Datei zielt (wie das geht, müsstest du suchen - ich bin sicher, dass das funktioniert). Falls es sich um keinen jpg-Link handelt, müsstest du den dem Event mitgegebenen ListItem zers...

Habe Probleme mit dem Filter im TShellListView. In einem Verzeichnis befinden sich Verknüpfungen von jeweils *.jpg und *.cr2 Dateien. Ich möchte nun nur die *.jpg Dateien (Verknüpfungen) angezeigt bekommen also ShellListView1.Mask:='*.jpg' funktioniert aber nicht unter Windows. (Unter Linux funktion...

Danke an theo
Firebird Datenbank, Alte Daten welche mit Delphiprogramm eingegeben wurden (ne ganze menge) keine Umlaute.
Mit LongstringToWidestring gehts

ich habes noch mal in Lazarus versucht .. geht auch .. unit Unit1;   {$mode objfpc}{$H+}   interface   uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;   type TTh = class private eid, tid: Integer; public constructor Create(ei, ti : integer) ; end;     type   {...

An diesem Probem habe ich auch lange gesucht und in Delphi diese Lösung gefunden. Müsste in Lazarus genauso gehen .. eine kleine Klasse type TFTh = class public oid , eid: Integer; // Objecte ID (ed, cb ..), Eigene ID constructor Create(oi ,ei: integer) ; end;   constructor TFTh.Create(o...