Deutsches Lazarusforum

Danke für Eure Antworten. Den {$mode delphi} habe ich mir angeschaut. Der hat auch Nachteile und das exakte Type-Casten hat auch Vorteile. Es ist halt mehr Schreibaufwand. Und erfordert mehr Tricks, wenn man verschiedene Objekte in einer Liste hat. Ich weiß jetzt jedenfalls über die Möglichkeiten ...

In Delphi habe ich immer eine TList angelegt und konnte die Inhalte direkt den Variablen zuweisen:

VAR Lst:TList;
Img:TImage;
BEGIN
Img:=TImage.Create;
Lst:=TList.Create;
Lst.Add(Img);
Img:=Lst[0]; <-------- Error
Img.Free;
Lst.Free;
END;

In Lazarus / FreePascal scheint das nicht zu gehen ...

Oh jeh, es kam von Windows-Notepad Entschuldigung für die falsche Interpretation und danke für die Hilfe!

Gruß Bernd

Hi Michl,

ich habe mich vertippt. Es heißt natürlich "LoadFromFile" statt "ReadFromFile". Wenn ich im Quelltext auf TStringList mit [Ctrl] klicke, komme ich zu classesh.inc. Dort ist das TStringList deklariert, das ich verwende.

Und Du hast anscheinend recht, TStringList.SaveToFile schreibt ...

Ich erzeuge eine TStringList und Schreibe eine Zeile hinein:

SL:=TStringList.Create;
SL.Add('Hallo');
SL.SaveToFile(ANiceFileName);
SL.Free;

Beim Lesen hat sich der Inhalt aber leider geändert:

SL:=TStringList.Create;
SL.LoadFromFile(ANiceFileName);
IF SL[0]='Hallo' THEN BEGIN END
ELSE BEGIN ...

Hallo shokwave,

Danke für Deine Antwort. Bei Gelegenheit werde ich das checken. Ich habe nur ein kleines Progrämmelchen zum Testen zu erstellen, da lohnt es sich nicht. Alle Schlüsselworte groß zu schreiben, machen wohl auch nicht so viele Leute, so dass sicher andere Bugs wichtiger sind.

Wenn wir ...

Hi,

ich möchte im Quelltext meine Schlüsselwörter alle in Großbuchstaben. Dazu habe ich bei Einstellungen in der Schlüsselwortrichtlinie GROSSBUCHSTABEN gewählt. Das funktioniert auch soweit, außer, dass beim automatischen Erzeugen von Ereignis-Prozeduren das "end;" immer klein generiert wird.

Was ...

Am kompatibelsten ist Unicode.
Das ist klar. Nach Unicode will ich ja hin. Ich komme aber von einer leider unbekannten CodePage. Ich meine daher, dass ich die wenigsten Probleme erzeuge, wenn ich davon ausgehe, dass die User (englisch (GB, US, etc.), deutsch (DE,AT,CH), französisch (F,CH etc ...

Hallo mschnell,

doch, doch, mittlerweile hab' ich's gerafft. Aber ich kann leider nicht vorhersehen, mit welcher Codepage welcher User meiner Software arbeitet(e). Ich habe eine deutsche, eine englische und eine französische Version. Die User tauschen z.B. innerhalb ihrer Konzerne auch unter ...

Ich habe mir unter Windows mal alle konvertierten Buchstaben angesehen und bin der Meinung dass

CP1252ToUTF8( )

die bessere Alternative zu sein scheint.

ISO_8859_1ToUTF8( )

hingegen hat eine undefinierte Lücke von Character #128 bis #159. Z.B. das €-Zeichen würde dann fehlen...

Bernd

Hallo theo,

was hältst Du für kritisch? Würdest Du es anders machen? Ich habe Strings aus Dateien, die ANSI-codiert sind. Die muss ich in Lazarus verwenden, verarbeiten und ggf. anzeigen. Nachher muss ich sie wahrscheinlich wieder ANSI-codiert in Dateien zurück schreiben (Dateiformat-Kompatibilität ...

Hallo Michl,

danke für die Information. Ich werde Crossposts nur noch machen, wenn es nicht weiter geht. Ergebnisse werde ich in Zukunft immer kreuzweise schreiben, damit keine Ressourcen verschwendet werden.

Gruß Bernd

Unter Linux kann ich wahrscheinlich die Unit LConvEncoding verwenden. Die Funktionen CP1252ToUTF8(#228);
ISO_8859_1ToUTF8(#228); scheinen jeweils ein 'ä' zu erzeugen bzw. einen alten Ansi-String korrekt in einen Lazarus-String umzusetzen. Danke den Postern, die mir hier geholfen haben! Danke an wp ...

Danke Mathias. Das funktioniert und ist genau was ich brauche!

Hallo theo, ich habe Strings und Chars im Format ANSI und muss sie mit Lazarus z.B. in einem TMemo anzeigen. Warum funktioniert es unter Linux nicht und was müsste ich dort anders machen?

Danke und Gruß Bernd

Ich möchte gerne aus einer Zahl, die einem Ansi-Zeichen entspricht (z.B. #228) einen String machen, der das entsprechende UTF-8 Zeichen enthält (z.B. ä):
VAR i:Byte;
s:String;
BEGIN
i:=228;
s:=xyz(i);
IF s='ä' THEN ...super...
END; Gibt es eine Funktion xyz, die aus einer Ansi-Zahl einen (UTF-8 ...