asci in Integer!!

[Delphieinsteiger]

Hallo

Bräuchte mal hilfe beim umwandeln!

Ich möchte diesen String von asci Zeichen 575053575748505553 in einen Solchen String wandeln 925990275

Ich habe es schon so versucht Datum[m]:=inttostr(ord(String1[m])) aber dann sagt man mir:

[Fehler] Unit1.pas(146): Inkompatible Typen: 'Char' und 'String'. Ich möchte nämlich den integerstring so zuweisen Datum:String[9]; Versuche es schon seit Stunden aber komme nicht darauf.

Danke im voraus!!

[sirius]

Was ist denn das für eine Berechnungsvorschrift/etc.
575053575748505553 --> 925990275

[leddl]

Zitat von sirius:

Was ist denn das für eine Berechnungsvorschrift/etc.
575053575748505553 --> 925990275

Immer 2 Ziffern als ASCII-Codierung für ein Zeichen

//Edit:
Ungetestet (da kein Delphi hier auf der Arbeit) und nur gschwind runtergeschludert:

Delphi-Quellcode:

function ASCIIToString(String s) : String;
var i : Integer;
Begin
  i := 0;
  result := '';
  while i < length(s) do
  begin
    temp := Copy(s,i,2);
    result := result + Chr(StrToInt(temp));
    inc(i,2);
  end;
end;

Keine Ahnung, ob das passt, sollte es aber eigentlich... Wobei, üblicherweise verstecke ich immer mindestens 2 Fehler in solchen Codestückchen
Wichtig ist hier auch, dass der ASCII-String natürlich eine gerade Anzahl Zeichen haben muss, sonst knallts Musst also evtl. noch etwas daran arbeiten

[Kedariodakon]

Sowas in der Art sollte es tun...

Delphi-Quellcode:

Function  OrdStrToChrStr( Const sOrd: String ): String;
Var len:    Integer;
    i:      Integer;
    iOut:   Integer;
    sPart:  String;
Begin
  Result  := '';
  len     := Length( sOrd );
  i       := 1;
  While i <= Len Do Begin    
    If i = Len Then Begin
      sPart := sOrd[ i ];
      Inc( i );
    End Else Begin
      sPart := sOrd[ i ] + sOrd[ i +1 ];
      Inc( i, 2 );
    End;
    If TryStrToInt( sPart, iOut ) Then Result  := Result + Chr( iOut )
    Else                               Raise Exception.Create( 'No int: "' + sPart + '"' );
  End;
End;

Bye Christian

Edit: Funktionsnamen geändert...

[sirius]

Zitat von leddl:

Zitat von sirius:

Was ist denn das für eine Berechnungsvorschrift/etc.
575053575748505553 --> 925990275

Immer 2 Ziffern als ASCII-Codierung für ein Zeichen

Man sieht, dass du aus einer ganz anderen Perspektive schaust

Also:
1. Hat der Compiler (wie immer) Recht, dass du aus inttostr einen String bekommst und den in einen Char von Datum reinpressen willst. Besser in dem Fall du hängst einfach an (Datum:=Datum+ ... )
2. Soll string1[m] auf 57 .. etc zugreifen und nicht auf "5" und als nächstes auf "7"

Da musst du wohl noch ein bisschen basteln.
(Glück muss man haben. Warum gabs eigentlich keinen roten Kasten )

[angos]

Hi leddl,

wenn es [b]IMMER[/b] zwei zeichen sind, hilft dir vielleicht das:

Delphi-Quellcode:

function Umwandeln(sSrc: String): String;
var
  i, dez: Integer;
begin
  Result := '';
  i := 1;
  while i < (length(sSrc) - 1) do
  begin
    if not TryStrToInt(sSrc[i] + sSrc[i+1], dez) then
      dez := 0;
    Result := Result + Chr(dez);
    inc(i, 2);
  end;
end;

Grüße

[leddl]

Zitat von angos:

Hi leddl,

wenn es [b]IMMER[/b] zwei zeichen sind, hilft dir vielleicht das:

Delphi-Quellcode:

function Umwandeln(sSrc: String): String;
[...]

Wie gesagt, ich hab nicht viel Zeit drauf verwendet, und es einfach runtergeschrieben. Es ging mir dabei weniger darum, den Code schon perfekt zu machen, als eher darum, dass Delphieinsteiger einen Grundbaustein bekommt, den er für sich noch verbessern kann

//Edit:
Ei ei ei, ich sehe gerade, du antwortest nicht auf mein Edit Ich nix Threadstarter, ich sein nur Helfer mit Durchblick

[Progman]

Datum[m]:=inttostr(ord(String1[m])) Datum[m] ist ein Zeichen, also ein Char, die ord-Funktion gibt (in einen String umgewandelt) 2 Zeichen zurück, dadurch klappt das nicht, denke ich.

[angos]

Hi leddl,

sorry meinte nicht dich, sondern den Delphieinsteiger hab wohl mal wieder die finger nicht mitm kopp verbunden

[Delphieinsteiger]

Vielen Dank für die vielen Tipps!!

Ich denke jetzt müßte ich es hinkriegen.
Werde es morgen direkt ausprobieren!

Also Danke an alle!!