Char zu String umwandeln

der organist · Verfasst: Mi 21.01.09 19:20

Hi Leutz,
normalerweise sollte das ja kein Problem darstellen, aber mir sagt der Copmiler, dass es incompatible types "Char" und "String" gibt.
Was mache ich falsch?

Thx, MfG,

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

jaenicke · Verfasst: Mi 21.01.09 19:21

Wie sieht denn der Quelltext aus?

der organist · Verfasst: Mi 21.01.09 19:22

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure MaxInt.increase(amount: String);
var k: Integer;
begin
  for k := 1 to Length(digit)do begin
    inc(digit[k],StrToInt(Amount[k]));
    if digit[k]>9 then begin
      Amount[k+1]:=IntToStr(StrToInt(Amount[k+1])+digit[k] div 10);
    end;
  end;
end;

digit ist ein Array of Integer. und der Fehler befindet sich in der markierten ZEile

.

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Amount[k+1] ist ein einziges Zeichen(ein Char) während IntToStr einen String zurückgibt (welcher aus mehreren Zeichen bestehen kann!) Wenn du genau weiß, dass IntToStr nur 1 Zeichen zurückgeben wird, dann kannst du mit [1] in Amount[k+1] einfach das erste Zeichen des von IntToStr zurückgegebenen Strings speichern: Amount[k+1] := IntToStr(...)[1];

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

der organist · Verfasst: Mi 21.01.09 19:29

danke, nu hab ich auch verstanden, wo der Fehler ist, ich dachte immer, der läge bei dem StrToInt.....

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme