Deutsches Lazarusforum

Je nachdem was du machen willst, schau mal folgendes an:
http://wiki.lazarus.freepascal.org/FPSpreadsheet" onclick="window.open(this.href);return false;
das klappt prima und reicht auch für den gewünschten Zweck, die anderen - von mir erwähnten Komponenten - funktionierten nicht.

Viele Grüße ...

Hallo,

sehe ich das richtig das die Ansteuerung von Excel (immer) noch nicht richtig funkioniert?

wb:=ExcelApp.Workbooks.Add();
Sheet := wb.activesheet;
Sheet.Cells(1, 1).value:='Adressen';

Spätestens bei Zeile 3 ist Schluß, dann zerlegt es das Programm.

Wenn nicht, hat jemand Erfahrung mit ...

so sollte es gehen:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
Colum: TColumn;
begin
i := 2;

//Colum := TColumn(DBGrid.Columns.Add);
//Colum.Title.Caption := 'Test';
//Colum.FieldName := 'test';

Colum := TColumn(DBGrid.Columns.Insert(i));
Colum.FieldName := 'test2 ...

über das darunter liegende Dataset kommst du an die Spaltennamen:

DBGrid.Dataset.FieldDefs.Items[i].Name
Danke!!

Problem ist nur, dass ich der Spalte ein Feld zuweisen möchte, den Feldnamen habe ich ja.
Was ich möchte ist ein Grid zur Laufzeit zusammenzubauen.
Also Spalten zuweisen ...

Hallo,

sehe ich das richtig, das man bei Lazarus die
Eigenschaft fieldname irgenwo vergessen hat? Im OI geht es ja, aber wenn ich zur Laufzeit so was wie

dbgrid.Columns.Insert(0); ;
dbgrid.Columns[0].fieldname:=mytable.Fields[0].FieldName;

mache, dann erhalte ich

Error: identifier idents no ...

monta hat geschrieben:UTFEncode/UTFDecode auch mal probiert?

das löste das Problem - herzlichen Dank!

Michael

falls es noch irgendwer mal braucht:
00.00.0000;1;_
da gibt es aber so einige Probleme mit, wie ich gerade selber feststellen darf (identisch mit dem dort beschriebenen), siehe:
http://mantis.freepascal.org/view.php?id=14832" onclick="window.open(this.href);return false;

Viele Grüße
Michael

UTFEncode/UTFDecode auch mal probiert?
Nein, bin jetzt noch nicht dazu gekommen, aber hatte es angedacht, werde es mal probieren.

Wo gibt es denn eigentlich genau die Probleme, in der FB-Datei oder beim anzeigen im Lazarus-Programm?
Hast du eine kleine Beispieldatei, wo man mal probieren kann ...

Naja, nicht implementiert stimmt ja auch soweit, als das du auf diese Art Probleme bekommst, wenn du nicht unter Windows bist.
Es ist also nicht Crossplattform und somit stimmt die Aussage in gewisser Weise schon, das es nicht implementiert ist. Es wird halt nur auf die WinApi durchgereicht ...

Ich würde mal auf ein Problem mit der Zeichencodierung tippen. Lazarus verwendet standardmäßig UTF8. Wenn in deiner Datenbank eine andere Kodierung verwendet wird, dann kann es zu solchen Anzeigeproblemen kommen. Entweder baust du in dem Fall Konvertierungsroutinen ein oder du änderst die Kodierung ...

Naja...einfach die "Suche in Dateien" eines (beliebigen) Texteditors hab ich verwendet ;)

Ich hatte einen Eintrag im FreePascal Bugtracker sowie einen Eintrag in einem anderen Forum gesehen, dass diese Funktion nicht implementiert sei, von daher kam ich nicht auf die Idee, dass da doch Hoffnung ...

Ich muss mich korrekt ausdrücken. Ich meinte, wenn ich mal eine Unit brauche, wo kann ich nachsehen, welche Unit ich nehmen muss. Anstelle von Shell api nimmt man Windows, das weis ich unterdessen, weil Monta es mir gesagt hat. Doch ich will ja nicht immer Monta bemühen. Hoffe immer noch auf das ...

Kuster Peter hat geschrieben:Hallo Monta

Kannst Du mir einen Link durchgeben, wo man diese Units suchen kann.

Peter

ist ok, findet sie ja von alleine!

Vielen Dank
Michael

Ich würde mal auf ein Problem mit der Zeichencodierung tippen. Lazarus verwendet standardmäßig UTF8. Wenn in deiner Datenbank eine andere Kodierung verwendet wird, dann kann es zu solchen Anzeigeproblemen kommen. Entweder baust du in dem Fall Konvertierungsroutinen ein oder du änderst die Kodierung ...

Hallo,

beim Einlesen einer älteren DBF-Tabelle mittels TDBF in eine FB-Tabelle habe ich Probleme mit den deutschen Umlauten:
Praktischerweise gibt es folgende Eigenschaft unter TDBF

aDbfTranslate(Dbf: TDbf; Src, Dest: PChar; ToOem: Boolean
): Integer;
begin
OemToAnsi(Src,dest);
Result:=-1 ...