Unterschiede: Delphi<>Lazarus TInifile und Stringfunkt

[Targion]

Hallo!
In einem von Delphi nach Lazarus portierten Projekt (um es auch auf Linux lauffähig zu machen) gibt es massive Probleme, da die Stringfunktionen copy() und delete() anscheinend irgendwie anders funktionieren. Gibt es einen Unterschied zwischen Delphis TIniFile und dem von Lazarus? Wenn ich die ganzen Unterschiede kenne, ist es einfacher, das Projekt anzupassen, als wenn ich in über 10.000 Zeilen Try-and-Error versuche.
Danke schonmal!
Targion

[monta]

Was hat copy() und delete() mit Inifile zu tun?

Soweit ich weiß, sind Copy und delete() absolut identisch deklariert.

Bei TIniFile bin ich mir nicht sicher, aber ich würde sagen, das sollte sich auch nicht sonderlich von Delphi unterscheiden.

[Targion]

Da habe ich getippt ohne nachzudenken... Also das 1. und eigentliche Problem ist, dass copy(h,0,1)='°' nicht wahr ist, obwohl das erste Zeichen im String h ein ° ist. (Daher kam ich auf die Idee, dass die Funktionen verschieden sind)

[monta]

Dann scheint das doch nicht das erste Zeichen zu sein...vielleicht ein Leerzeichen davor? Bzw. einfach mal Copy(Trim(h), 0, 1)... probieren.

Ich habs gerade probiert und es funktioniert bestens und ich bekomm die entsprechende Nachricht:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var temp: string;
begin
  temp := '°1234';
  if Copy(temp, 0, 1) = '°' then
    ShowMessage('Erstes Zeichen ist ein °')
  else
    ShowMessage(Copy(temp, 0, 1));
end;

[Targion]

Also, es ist kein Leerzeichen davor... Und es funktioniert trotzdem nicht!
Die Stelle sieht jetzt so aus:

Code: Alles auswählen

if copy(Trim(h),0,1) = '°' then begin

Also ich kann echt keinen Fehler finden!!

[theo]

Erstens fangen Strings bei 1 an, nicht bei 0.
Also Copy(temp,1,1) wäre besser, obwohl der Compiler so freundlich ist, das 0 auch zu schlucken.
Das ist aber nicht dein Problem.
Mit Zeichen > #127 kann's schwierig werden, da dann die $LANG Einstellungen im Editor eine Rolle Spielen. Versuch mal gegen #186 zu testen.

[Targion]

Immernoch kein Erfolg:

Code: Alles auswählen

if copy(h,1,1) = #186 then begin

(Irgendwo stand, dass Strings mit 0 beginnen... Ich suche mal danach. Aber egal!)

[theo]

(Irgendwo stand, dass Strings mit 0 beginnen... Ich suche mal danach. Aber egal!)

Naja der "Beweis" ist relativ einfach: Der zweite Buchstabe ist in h[2], h[0] und h[1] sind identisch. Also saubererweise ist der erste Buchstabe in 1 zu holen.

Wie liest du denn dein h ein?

[Targion]

So:

Code: Alles auswählen

h:=db.ReadString('XModule('+IntToStr(i)+')','ID'+IntToStr(j),'');

i,j: Integer

[monta]

nur mal in den Raum geworfen, kann es mit Ansi vs. UTF zusammenhängen?

[theo]

@Monta: Ja, vor allem wenn er unter GTK2 IDE arbeitet, dort müsste der Editor eigentlich auf UTF8 laufen. Wenn er dann mit Latin1 Daten vergleicht, kann's Probleme geben.
@Targion: Wie sieht denn der String aus, wenn du den in einem Memo ausgibst?
Siehst du das '°' ?

[Targion]

Ja, tue ich. ich habe die Datei schon vorher UTF8-Kodiert

[Targion]

Der Test auf ein ° geht übrigens auch nicht, wenn ich dieses vorher an den String angefügt habe! Irgendwas stimmt da garnicht...

[Christian]

Wiso probierst du nicht mal mit da kommt mit sicherheit nicht ° raus

Showmessage(char(h[1]));

[Targion]

Ja, da steht dann ein "?" anstatt dem °. Das muss doch irgendwo an der Kodierung liegen...
Aber wenn ich den String auf "?" teste, kommt auch kein Okay.
Welchen Zahlenwert hat ° in der UTF-8 Codierung?