Array of Char an zweiter Stelle füllen

[duff]

Hallo Zusammen,

folgendes Problem:

Ich habe ein Array of Char

length : Array[1..4] of Char; //Num Nun möchte ich diesen String

'369'#0 der in einer Variablen steckt, in length schreiben. Das mache ich mit der move Methode!

Das Record in dem length deklariert ist soll Seriell übertragen werden, dass Problem: bei #0 von '369'#0 ist die übertragung vorbei. Schön wäre es auf einen sauberen Wege anstatt '369'#0 --> 0369 zu übertragen.

Wie stelle ich das am besten an!!!

[Loki77]

Dann "beschneide" den String doch einfach mit Delete, die letzten 2 Zeiche müssen ja nur
abgeschnitten werden.
Dann kannst Du den neuen String ja übergeben.

[marabu]

Hi duff,

ich finde es toll, dass du deine Variablen nicht V001 oder Array123 nennst, aber Length() ist eine Standardfunktion und das finde ich dann auch wieder nicht so toll.

Um deine Längenangabe mit führenden Nullen in das Array zu scheiben könntest du auch so vorgehen:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  ca: array [1..4] of Char;
  s: String;
  i: Integer;
begin
  i := 369;
  // 4-stellig mit führenden Nullen
  s := Format('%.4d', [i]); 
  // Übertragen von String nach Array
  Move(s[1], ca[1], SizeOf(ca));
  // Rückübertragen aus Misstrauen
  s := ca;
  // Anzeige zur Beruhigung
  ShowMessage(s);
end;

Grüße vom marabu

[duff]

hallöchen,

danke für die antworten... werde mich gleich morgen früh wieder dranan setzen

und danke für den hinweis bzgl. des Variablennamen

[DGL-luke]

ich benenne meine längenangaben immer mit "len"