Kann mir einer erklären warum ich ein '€' (Eurozeichen) statt gewünschtem ';' (Semikolon) bei der Übergabe aus einem Editfeld in eine Variable bekomme?

der Code sieht bei mir so aus:



bei einzeln Anweisungen habe ich rausbekommen, dass danach in der var zeichen ein € sitzt.

bitte um eine Erklärung

Edit1 ist kein Char sondern ein Pointer. Ich hab zwar nur die hälfte von dem was du geschrieben hast verstanden, aber vermutlich suchst du das:



gruss

Das geht z.B. so:



Moderiert von raziel: Delphi-Tags hinzugefügt

Ich halte es für gefährlich, einfach einen String einem PChar zuzuweisen, ohne Speicher für den PChar zu reservieren

HelgeLange hat folgendes geschrieben:

Ich halte es für gefährlich, einfach einen String einem PChar zuzuweisen, ohne Speicher für den PChar zu reservieren

PChar ist ein Zeiger, welcher dann auf den String zeigt. Füre was willst du Speicher reservieren?

Er meint wahrscheinlich damit, dass wenn das Editfeld beispielsweise dynamisch erzeugt wird oder sich auf einem anderen Formular befindet der Zeiger ins Leere zeigt, wenn das Editfeld bzw. das Formular freigegeben wird.

Ich würde auch die Lösung mit "zeichen := Edit1.Text[1];" bevorzugen

vielen dank euch
hat geklappt

Vorsicht! PChar ist nicht gleich Char!

PChar ist ein nullterminierter String, Char ein Character, d.h. ein Buchstabe!

Die Konvertierung eines AnsiStrings (Standard, wenn man bei Delphi was von String schreibt) in ein PChar geht problemlos über Typecasting, z.B. PChar(Edit1.Text). Dabei wird afaik aber nicht nur ein Zeiger auf den vorhandenen String gesetzt, sondern tatsächlich im Speicher umkopiert. Stichpunkte wären Referenzzähler/Länge bei Ansistrings (gibts nicht bei PChar) und Terminierungsbyte bei PChar (gibts nicht bei AnsiString).

Will man einen 1-Zeichen-langen String in eine Char-Variable speichern, dann sollte man das nicht über PChar machen (denn dann hat man immer noch einen String-Typen), sondern wie jetzt schon mehrfach gesagt über MeinChar := MeinString[1].

ich habe mal was rausgesucht dazu :

Zitat:

markieren Delphi-Quelltext     1: 2: 3: 4: 5: 6: 7: 8: // WARNING: BAD EXAMPLE   var     S: string;     P: PChar;   begin     S := ParamStr(0); // say, this returns 'C:\Test.exe';     P := PChar(S);     S := 'Something else'; If S is changed to 'Something else', P will not be changed with it, and still point to 'C:\Test.exe'. Since P is not a string reference to that text, and there is no other string variable pointing to it, its reference count will become 0, and the text will be discarded. That means, that P now points to invalid memory.

Hoffe, das hilft