Moinsen,
ich bin gerade dabei, für meinen Kreis-Rechner, eine Speicher-Funktion einzubauen, wo er von einer Edit Box das Ergebnis abspeichert und vor den Zahlen: Radius, Fläche, Umfang oder Durchmesser schreibt. Nur habe ich das Problem, das eins von den beiden Sachen nicht annimmt, da es verschiedene Typs sind.
Ich habe dies erstmal für den Radius gemacht. Wenn ich den Titel (Beispiel: "Radius : " ) weglassen würde, klappt alles.
Ich hoffe ihr könnt mir helfen, da ich ehrlich selbst nach vielen Versuchen, mit Umwandlung von StrtoInt etc. nicht weiterkam.
Gruß
Chack
ich bin gerade dabei, für meinen Kreis-Rechner, eine Speicher-Funktion einzubauen, wo er von einer Edit Box das Ergebnis abspeichert und vor den Zahlen: Radius, Fläche, Umfang oder Durchmesser schreibt. Nur habe ich das Problem, das eins von den beiden Sachen nicht annimmt, da es verschiedene Typs sind.
Code:
procedure TMain_Rechner.Speichern1Click(Sender: TObject);
var strl: TStringList ;
begin
strl:=TStringList.Create;
try
strl.Add ('Ergebnisse der Kreisberechnung :') ;
strl.Add ('') ;
strl.Add ('') ;
strl.Add ('Radius : ') + (edt_radius.Text) ;
strl.Add ('') ;
strl.Add ('Fläche : ') ;
strl.Add ('') ;
strl.Add ('Umfang : ') ;
strl.Add ('') ;
strl.Add ('Durchmesser : ') ;
strl.SaveToFile('c:\Ergebnisse der Kreisberechnung.txt') ;
finally
strl.free;
showmessage ('Die Ergebnisse wurden Erfolgreich abgespeichert!') ;
end; (*Try-Finally-End*)
end; (*End - Prozess*)
Ich hoffe ihr könnt mir helfen, da ich ehrlich selbst nach vielen Versuchen, mit Umwandlung von StrtoInt etc. nicht weiterkam.
Gruß
Chack
Comment