Deutsches Lazarusforum

Hallo an Alle,
danke für Eure Tipps und Hinweise.
Ich habe nun mal alle Eure Hinweise und Tipps zusammen gefasst:
library myfunc1;
{$mode objfpc}{$H+}
uses
Classes,
strings;
{$R *.res}
function isAlpha(c :pchar) :integer; CDecl ...

Hallo theo,
mein FPC ist 2.6.0-1 und Lazarus ist 0.9.31-0

bis dann ...
MfG
Günter

Hallo an Alle,
bei dem Versuch, eigene Funtionen und Prozeduren, wieder zu verwenden, bin ich auch über Bibliotheken gestolpert.
Dabei habe ich folgende Bibliothek erstellt:
library myfunc1; // Versuch1

{$mode objfpc}{$H+}
uses
Classes,
strings
{ you can add units after this };
{$R *.res ...

Hallo corpsman,
danke für Deine Antwort. Habe sie erst jetzt gelesen. Zwischenzeitlich habe ich noch versucht über Bibliotheken zu einer Lösung zu kommen. Es hat auch geklappt nach einiger Zeit. Aber dabei ist mir etwas aufgefallen, was ich nicht so verstehe. Dafür werde ich aber einen neuen Thread ...

Hallo theo,

hier ist die entsprechende Unit
unit myfunc;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Grids;
type
{ TForm1 }
TForm1 = class(TForm)
private
{ private declarations }
public
{ public declarations }
function ...

Hallo an Alle,
beim Testen mit allgemeine Units tritt dieser Fehler auf:
project1.lpr(20,1) Error: Error while compiling resources

Ich benutze fpc 2.6.0 und Lazarus 0.9.30.4 von Ubuntu 12.04

Das Programm sieht wie folgt aus:
UNIT Unit1;

{$mode objfpc}{$H+}

INTERFACE

USES
Classes ...

Hallo Scotty,
erstmal danke für Deine Antwort. Was ist denn so eigenartig an meinem Vorgehen? :o
Ich möchte doch nur Sourcecode, z.B. Pascal, einlesen und formatiert ausdrucken. Soll heissen, Keywörter werden fett gedruckt, Kommentar in grün u.s.w.. Ein Teil davon klappt ja schon. Ich behaupte ...

Hallo Gocher,
danke für Deine Antwort.

Durch DelimitedText schreibst Du nicht "Trec_Blatt = record" in eine Zeile sondern erzeugst drei Zeilen in der Stringlist
1: Trec_Blatt
2: =
3: record
In 1 steht dann nur der Name "Trec_Blatt",
in 2 steht nur das Zuordnungszeichen also weder Name noch Wert ...

Hallo an Alle,
ich möchte eine Zeile in ihre Einzelteile zerlegen. Das mache ich mit:
...
sl := TStringlist.Create;
sl.Delimiter:= ' ';
sl.DelimitedText:=sz;
...
sl.free
...

Das klappt auch im Prinzip. Nur, mir ist aufgefallen, wenn ich die folgende Zeile:
Trec_Blatt = record
bearbeite, und ...

Hallo Heinrich,
läßt sich die Druckausgabe in der Testphase auf den Bildschirm umleiten? Wenn ja, wie.

Bis dann ...
MfG
Günter

Hallo an Alle,
danke für Eure Antworten. Ich werde mich in das Thema Canvas einarbeiten und die Tipps ausprobieren. Canvas ist für mich noch ein Buch mit sieben Siegel. Hoffe, am Wochenende einige Siegel zu brechen.

Bis dann ...
MfG
Günter

Halo Antrepolit,
danke für Deine Antwort. Printer-Canvas kenne ich noch nicht, deshalb kann ich nicht beurteilen ob es für meinen Fall geeignet ist. Denn ich möchte einzelne Zeichenfolgen in einem String unterschiedlich drucken, z.B Fett oder Kursiv. Aus diesem Grund möchte ich mit ...

Hallo an Alle,
nach langer Suche bin ich nicht wirklich fündig geworden nach der Antwort für "wie bringe ich ein Druckersteuerzeichen in einen String?".
Ich möchte das folgende Steuerzeichen in eine String einfügen
\033[1m

Ich schaffe es LF und CR mit #10 bzw. #13 einzufügen. Aber wenn ich naiv ...

Hallo an Alle,
nach dem ich ein lauffähiges Programm "optimiert" habe, tritt beim Zugriff auf Arrays der Fehler Access Violation auf. Die "Optimierung" bestand darin, das ich das Füllen von Comboboxen über eine, für alle Comboboxen gültige, Procedure realisiert habe. Das Füllen der Comboboxen klappt ...

Hallo Socke,
danke für Deine Antwort. Es klappt immer noch nicht so. Mit Strg+Leertaste lande ich im Use-Teile der aktuellen Unit. Die Code-Completion nach dem Punkt (.) klappt auch nicht.
Ich scizzere hier mal meine realen Definitionen

externe Unit:
uses
Classes, SysUtils, FileUtil, Forms ...