Umwandlung von String in TStrings

[Desty]

Hallo Forum,

ich schreibe ein Programm um MOPAC (semiemprisches Rechenprogramm, berechnet Moleküle) zu steuern.

Dazu muss ich auch "Textverarbeitung" betreiben, sprich die Daten aus einem TMemo reduzieren / abschneiden.

Hierbei habe ich massive Probleme:

Code: Alles auswählen

Puffer:=memDateianzeige.Lines;       //Puffer ist definiert als TStrings
  Pufferstring:=Puffer.Text;           //Pufferstring ist definert als String
  Laenge:=Length(Pufferstring);
 
  Posit:=Pos('CHARGE',Pufferstring);   //sucht das Schlüsselwort
  Delete(Pufferstring,1,Posit+7);      //schneidet korrekt ab
  ShowMessage('*'+Pufferstring+'*');   //zur Kontrolle Anzeige des Ergebnisses
  memDateianzeige.Lines=Pufferstring;     <- hier der Fehler:  Incompatible types: got TStrings" expected "AnsiString"

Zur Erklärung: Die erste Zeile liest die Daten aus einemTMemo, sie sind das Ergebnis einer Berechnung; danach wird das Schlüsselwort "CHARGE" gesucht: der Text danach ist die berechnete und gesucht Molekülgeometrie. Sie wird aus dem Text herausgeschält. Dies funktioniert auch, nur muss ich nun wieder zurückverwandeln in TStrings, um das TMemo wieder mit dem Ergebnis zu füllen
Wie wandle ich hier um?

Vielen Dank im Voraus,


Desty

[monta]

Wenn ich das jetzt richtig verstanden hab, sollte dein problem so gelöst werden:

Code: Alles auswählen

memDateianzeige.Lines.Text := Pufferstring;

P.S. Hast du auf der Mailingliste nach der SQL-Query gefragt - da war doch auch was mit Molekülen?

[Desty]

OMGs,

das ist peinlich.

Tausend Dank!

P.S.: Nope, das war nicht ich mit dem SQL-Zeuchs... ;D