Hi,
ich habe eine Zeichenkette, die nur ein Zeichen enthält. Diese muss ich in ein Char umwandeln, damit eine Abfrage mit einer Case-Of-End-Anweisung möglich ist.
Wie kann ich das machen?
Danke, Anka.
Hi,
ich habe eine Zeichenkette, die nur ein Zeichen enthält. Diese
muss ich in ein Char umwandeln, damit eine Abfrage mit einer
Case-Of-End-Anweisung möglich ist.
So würde ich es machen: (bei nur einem Zeichen)
procedure TForm1.Button1Click(Sender: TObject);
var
Str : String;
PCHA : Char;
begin
Str:= Edit1.Text;
PCHA:= Str[1];
Label1.Caption := PCHA;
end;
Das sagt die Delphi Hilfe:
procedure my_func(x: string);
begin
// Operation mit x
some_proc(PChar(x)); // Umwandlung des Strings in PChar
// Jetzt müssen Sie sicherstellen, daß der String verfügbar bleibt,
// solange er von some_proc benötigt wird
end;
Hoffe geholfen zu haben
CASE CHAR(s[1]) OF… (o. T.)
„o. T.“ = „ohne Text“!