AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Was ist daran ShortString??

Offene Frage von "xZise"
Ein Thema von TitanNano · begonnen am 17. Jun 2010 · letzter Beitrag vom 17. Jun 2010
Antwort Antwort
TitanNano
(Gast)

n/a Beiträge
 
#1

Was ist daran ShortString??

  Alt 17. Jun 2010, 15:01
Hallo,
ich habe diese Arrays in meiner neuen Komponente,
Delphi-Quellcode:
 
 ZeichenListe1, ZeichenListe2 : Array[1..223] of char;
 ZeichenListe2_1 : Array[1..112] of Char;
 ZeichenListe2_2 : Array[1..111] of char;
 ZeichenListe2_1_2, ZeichenListe2_2_2 : Array[1..56] of Char;
 ZeichenListe2_1_1, ZeichenListe2_2_1 : Array[1..55] of Char;
Ich lade in ZeichenListe1 und ZeichenListe2 alle wesentlichen Zeichen rein.
Delphi-Quellcode:
y:=1;
 for i:=032 to 255 do
 begin
  ZeichenListe1[y]:=char(i);
  Y:=y+1;
  end;

y:= 223;
 for i:=255 downto 032 do
 begin
  ZeichenListe2[y]:=char(i);
  Y:=y-1;
  end;
Nun, kopiere ich die erste Hälfte von Zeichenliste2 in Zeichenliste2_1, und die Zweite Hälfte in Zeichenliste2_2.
Delphi-Quellcode:
 for i:= 1 to 112 do
 begin
  ZeichenListe2_1[i]:= Zeichenliste2[i];
  end;

for i:= 112 to 223 do
 begin
  ZeichenListe2_2[i]:= Zeichenliste2[i];
  end;
Jetzt teile ich noch einmal jedes Array durch zwei.
Delphi-Quellcode:
for i:= 1 to 56 do
 begin
  ZeichenListe2_1_1[i]:= Zeichenliste2_1[i];
  end;
 for i:= 56 to 112 do
 begin
  ZeichenListe2_1_2[i]:= Zeichenliste2_1[i];
  end;

for i:= 1 to 55 do
 begin
  ZeichenListe2_2_1[i]:= Zeichenliste2_2[i];
  end;
 for i:= 55 to 111 do
 begin
  ZeichenListe2_2_2[i]:= Zeichenliste2_2[i];
  end;
So, und zum Schluss möchte ich die Arrays in einer anderen reihen folge wieder zusammen setzen,
ZeichenListe2:= Zeichenliste2_2_2+Zeichenliste2_2_1+Zeichenliste2_1_2+Zeichenliste2_1_1; doch da bekomme ich immer den Fehler, "E2010 Inkompatible Typen: 'Array' und 'ShortString'". Doch ich habe da doch nur Arrays oder??
wenn icht wie verwandle ich die/den ShortString/s wieder in Arrays??
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 15:14
Du kannst Arrays nicht einfach addieren.
Markus Kinzler
  Mit Zitat antworten Zitat
TitanNano
(Gast)

n/a Beiträge
 
#3

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 15:19
ach so !! okay danke!!
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#4

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 15:20
Warum nimmst du nicht gleich einen Shortstring:
var x:string[112]; ?
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
TitanNano
(Gast)

n/a Beiträge
 
#5

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 15:30
weil die einzelnen Zeichen von einander getrennt sein müssen.

Ich habe es jetzt so gelöst ich hoffe das stimmt alles.
Delphi-Quellcode:
//1 addition
 Zahl:= length(Zeichenliste2_2_2);
 for i:= 1 to Zahl do
 begin
  ZeichenListe2[i]:= Zeichenliste2_2_2[i];
  end;
//2 addition
 Zahl:= Zahl+length(Zeichenliste2_2_1);
 for i:= length(Zeichenliste2_2_2) to Zahl do
 begin
  ZeichenListe2[i]:= Zeichenliste2_2_1[i-length(Zeichenliste2_2_2)];
  end;
//3 addition
 Zahl:= Zahl+length(Zeichenliste2_1_2);
 for i:= length(Zeichenliste2_2_1) to Zahl do
 begin
  ZeichenListe2[i]:= Zeichenliste2_1_2[i-length(Zeichenliste2_2_2)-length(Zeichenliste2_2_1)];
  end;
//4 addition
  Zahl:= Zahl+length(Zeichenliste2_1_1);
 for i:= length(Zeichenliste2_1_2) to Zahl do
 begin
  ZeichenListe2[i]:= Zeichenliste2_1_1[i-length(Zeichenliste2_2_2)-length(Zeichenliste2_2_1)-length(Zeichenliste2_1_2)];
  end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#6

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 15:36
Das sieht mir unnötig kompliziert aus. Ich würde auch anstatt der Arrays Shortstrings verwenden, wie sirius bereits angedeutet hat, die lassen sich genauso behandeln und ganz easy aneinanderhängen (man muss nur darauf achten, dass entweder der Zielstring 255 Zeichen nicht überschreitet oder einen Ansistring verwenden).
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 15:44
weil die einzelnen Zeichen von einander getrennt sein müssen.
Ja und?
Du kannst auch bei einem ShortString (und allen übrigen Strings) die Zeichen einzeln ansprechen

In Anlehnung an Detlef:
Da ich durch den Code nicht durchsteige (=> den Sinn nicht verstehe):
Was soll es denn werden, wenn's fertig ist.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
TitanNano
(Gast)

n/a Beiträge
 
#8

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 15:46
Es kann sein, das es sehr kompliziert ist, aber ich habe keine Lust wieder alles zu ändern. Vielleicht beim nächsten mal.

@Christian Seehase: eigentlich wollte ich das ja nicht sagen, aber da es eh niemand versteht ich Verschlüssle einen Text.
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#9

AW: Was ist daran ShortString??

  Alt 17. Jun 2010, 16:05
Wenn ich nicht falsch liege, ist es doch egal ob dort x : array [0..42] of char oder x : ShortString[43] steht? Der Zugriff nachher ist äquivalent?

Und zusammenfügen kannst du auch mit Delphi-Referenz durchsuchenSystem.Move. Und wenn das eine Verschlüsselung werden soll, dann mach es doch richtig? Ich meine sehr gut wird sie ja nicht sein und da kannst du dann wenigstens eher was von lernen, wenn du den Code besser gestaltest, als eine Frickellösung zu haben.

Wenn dir nur wichtig ist, dass er verschlüsselt, dann nutze das DEC mit AES oder Twofish.

MfG
Fabian
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:15 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