Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Ist jetzt wohl mehr eine Feststellung als eine Frage, oder?
Klar - ich hätte dir auch mehr prosaische Tipps geben können, aber mit der Delphi Online-Hilfe und dem dank seiner Kompaktheit überschaubaren Code solltest du dein Lerntempo deutlich steigern können. Wenn du lieber anders lernst, dann musst du es schreiben und ich poste keinen Code.
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Wenn einen der Ehrgeiz packt:
function TForm1.CreateTypLists(fn: TFileName; cStart, sStop: Char): TStrings;
var
i, iStart, iStop: Integer;
s: String;
begin
Result := TStringList.Create;
Result.LoadFromFile(fn);
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Probiere es mal so:
function TForm1.CreateTypLists(fn: TFileName; cStart, sStop: Char): TStrings;
var
i, iStart, iStop: Integer;
s: String;
begin
Result := TStringList.Create;
Result.LoadFromFile(fn);
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Du gibst als Parameter anf und ende vor, suchst aber nach den Literalen 'anf' und 'ende' - so kann es nicht funktionieren.
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Kleine Fehler sind meine Spezialität ...
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
So geht das nicht. Wenn du die Namensliste in der Funktion selbst erzeugen möchtest, dann so:
procedure CreateNames(s: TStrings): TStrings;
var
i: Integer;
begin
Result := TStringList.Create;
for i := 0 to Pred(s.Count) do
Result.Add(s.Names);
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Habe leider übersehen, dass der NameValueSeparator in D5 noch fest codiert ist:
function CreateStrings(fn: TFileName; nvSep: Char): TStrings;
var
i, iPos: Integer;
s: String;
begin
Result := TStringList.Create;
with Result do
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Fast richtig,
der gesetzte NameValueSeparator wird erst später beim Zugriff auf die indizierte property Names verwendet - und zwar intern. Eingelesen wird die ganze Textdatei.
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
30. Jul 2006
Herzlich willkommen in der Delphi-PRAXiS, DragonsTear.
Hier noch ein anderer Ansatz:
function CreateStrings(fn: TFileName; nvSep: Char): TStrings;
begin
Result := TStringList.Create;
with Result do
begin