Ich fang mal mit dem ersten Problem an:
Delphi-Quellcode:
procedure TForm1.Button1Click (Sender: TObject);
var lText,lAsciiErgebnis,lDualergebnis,laktuellerBuchstabe,
lAsciizwischenWert,lDualzwischenwert :
string; z,lwert : integer;
begin
lText:= mText.text ;
for z:=1
to length (lText)
do
begin
//Ascii umwandeln
laktuellerBuchstabe:= lText[z];
//z-ter Buchstabe aus dem gesamten Text
lAsciizwischenwert:=hatAsciiControl.TexttoAscii(lAktuellerBuchstabe);
// z-ter Buchstabe wird in Ascii umgewandelt
lAsciiErgebnis:= lAsciiErgebnis + lAsciizwischenwert;
// zusammenfassen der Ergebnisse bis z die Länge des Textes erreicht
lWert:= strtoint(lAsciizwischenwert);
// z-ter Buchstabe der ein Asciiwert also string in integer geändert
lDualzwischenwert:=inttostr(hatAsciiControl.AsciitoDual(lWert));
// // z-ter Buchstabe aus Ascii wird in Dual geändert
mDual.text:=(lDualzwischenwert);
// Dualsystemwert wird dem memofeld zugewiesen
mDual.text:='
#';
end;
mascii.text:= lAsciiErgebnis;
// Asciicode wird dem Memofeld zugewiesen
end;
so hier zeigt er in der der Zeile
lDualzwischenwert:=inttostr(hatAsciiControl.AsciitoDual(lWert)); // // z-ter Buchstabe aus Ascii wird in Dual geändert
den fehler
[Fehler] ASCII.pas(63): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann
die methode
AsciitoDual sieht dann so aus
Delphi-Quellcode:
function TAsciiControl.AsciitoDual (pAscii: integer) : string;
var lWert,lZwischenwert :integer;lendwert,lErgebnis :string;
begin
lWert:= pAscii; // der Wert aus pAscii wird lWert zugewiesen
repeat
lzwischenwert:= lwert mod 2; // teilen mit rest, Ergebnis wird in einer lokalen Variable gespeichert
// lendwert:= inttostr(lzwischenwert); // lzwischenwert wird in einen integer verwandelt
insert(lendwert,lErgebnis,1); // lendwert wird an der ersten stelle des strings lergebnis eingefügt, da der Dualwert von hinten gelesen werden muss
until lwert mod 2 <= 1 ; // dies wird solange wiederholt bis lwert durch 2 geteilt wird und als rest entweder 1 oder 0 raus kommt
result := lErgebnis
end;
leider kann ich das aufgrund des vorrangehenden fehlers nicht uberprüfen
habt ihr ne idee???