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

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;

//TabControl in ...

Funktioniert :twisted:

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
if cbSEFilter.Text ...

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

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

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(oi, ei ...