Nach unzähligen Stunden des Probierens bin ich am Verzweifeln. Ich hänge immer bei dem Problem fest, dass ich TStrings nicht in Memo-Feldern ausgeben kann.
Bis jetzt habe ich 2 halbe Programme zu einem zusammengeschraubt, um wenigstens mal eine Ausgabe zu bekommen:
Delphi-Quellcode:
function parse(s: string):TStringList;
var s:string;
begin
result := TstringList.Create;
result.CommaText := s;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
s :='"Azuras Stern","Fundort: Azuras Schrein","Voraussetzung: Stufe 2","Opfergabe: Glühstaub"';
memo1.lines.Commatext := s;
end;
begin
strings := TStringList.Create;
try
path := ExtractFilePath(ParamStr(0));
path := path + 'Testdatei.txt';
strings.LoadFromFile(path);
if strings.Count > 0 then
begin
for i := 0 to strings.Count - 1 do
begin
end;
end;
finally
strings.Free;
end;
Ich würde nun gerne der Variablen s die Werte aus strings übergeben, was aber an TString/String scheitert. Gibt es da eine Möglichkeit für, denn dann könnte ich vlt. weiterkommen*hofft*
P.s.
Delphi-Hilfe/Suche/Google wurde ausreichend genutzt. Hat leider nichts gebracht.