Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi char -> string (https://www.delphipraxis.net/954-char-string.html)

Roland Herberg 1. Okt 2002 19:18


char -> string
 
Hallo,
wie kann ich einen Char in einen String umwandeln? Habe akut folgende Situation:

In einer DirectoryListBox soll das markierte Directory in einer funktion als Parameter übergeben werden.
Das markierte Direktory wird in einem Label angezeigt.
Diesen Wert weise ich einer Variablen zu, welche in der Parameterangabe der Funtion auftaucht.
Hier kommt es dann zum Problem. Der Compiler gibt char und string als inkompatibel aus - wie kann ich diesen Fehler beheben?

Code:
var
 quell,ziel:char;
begin
 quell:=label3.caption;
 ziel:=label4.caption;
 copyfile(quell,ziel,...);
end
Gruß Roland

Daniel B 1. Okt 2002 19:24

Hi,

meinst Du etwa sowas: PChar('MyString');

Grüsse, Daniel :hi:

RomanK 1. Okt 2002 19:24

char ist eine Zeichen
String ist eine Zeichenkette!
array[1..255] of Char = String
also ersetze char einfach durch Sting in deinem Code, dann sollte es funzen!

sakura 1. Okt 2002 23:30

Zitat:

Zitat von FuckRacism
array[1..255] of Char = String

Das gilt aber schon lange nicht mehr :!: Der ShortString hat maximal 255 Zeichen. Der String ist wie folgt aufgebaut :
Code:
type
  StrRec = packed record
    allocSiz: Longint;
    refCnt: Longint;
    length: Longint;
  end;
Der Rest ist ok erklärt. Vorsicht sei trotzdem geboten Char mit String zu ersetzen - kann auch verherende Folgen haben ;)

Luckie 1. Okt 2002 23:34

Oder probier es mal so:
Code:
CopyFile(@quelle[1], @ziel[1], ...);
Und quelle und ziel als String deklarieren.

Daniel B 3. Okt 2002 17:13

Hi,

ist zwar der umgekehrte Weg, aber vielleicht bringt es Dir ja noch was...
Code:
var s: string;
  c: char;
begin
  c:=s[1];
end;
Grüsse, Daniel :hi:


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz