Text von einer Edit Box als txt abspeicher - String + Integer Problem

[ChackB.]

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.

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 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

[Christian Marquardt]

Es kann doch kein Integer oder Umwandlungsproblem sein, da ein TEdit immer einen String enthält. Was für eine Fehlermeldung kommt den? Heir mal ohne Klammern:


strl.Add ('Radius : ' + edt_radius.Text) ;

[ChackB.]

Es kann doch kein Integer oder Umwandlungsproblem sein, da ein TEdit immer einen String enthält. Was für eine Fehlermeldung kommt den? Heir mal ohne Klammern:


strl.Add ('Radius : ' + edt_radius.Text) ;

Es kommt dies:

[Error] UKreisrechner.pas(391): Incompatible types: 'String' and 'Integer'

Aber deine Verbesserung funktioniert! Vielen Dank.