Quelltext aus dfm-Datei in pas-Datei

[FriendOfDelphi]

Hallo Allerseits,

weiß jemand wie der folgende Quelltext aus einer dfm-Datei umgeschrieben werden muss, um ihn direkt in eine pas-Datei einzubauen:

DbfFields.Strings = (
'test1, N, 6, 0'
'test2, N, 6, 0'
'test3, N, 6, 0'
'test4, C, 20, 0'
'test5, F, 18, 8')

[himitsu]

Delphi-Quellcode:

DbfFields.Strings.Clear;
DbfFields.Strings.Add('test1, N, 6, 0');
DbfFields.Strings.Add('test2, N, 6, 0');
DbfFields.Strings.Add('test3, N, 6, 0');
DbfFields.Strings.Add('test4, C, 20, 0');
DbfFields.Strings.Add('test5, F, 18, 8');

oder

Delphi-Quellcode:

DbfFields.Strings.Text := 'test1, N, 6, 0'#10
  + 'test2, N, 6, 0'#10'test3, N, 6, 0'#10
  + 'test4, C, 20, 0'#10'test5, F, 18, 8';

oder
(nja, wie kann man denn noch alles eine StringList befüllen? )

[mkinzler]

Ich würde es eher mit DelimitedText machen

[DeddyH]

Statt #10 würde ich eher sLineBreak verwenden.

[himitsu]

Zitat:

Zitat von DeddyH

Statt #10 würde ich eher sLineBreak verwenden.

ich bin Faul und der TextParser versteht Beides. :stupid:

@DelimitedText: praktisch das Selbe, nur eben mit anderem "Delimiter".

[mkinzler]

Zitat:

ich bin Faul und der TextParser versteht Beides. Stupid

Das muss aber nicht so bleiben :zwinker:

[FriendOfDelphi]

Zitat:

Zitat von himitsu

Delphi-Quellcode:

DbfFields.Strings.Clear;
DbfFields.Strings.Add('test1, N, 6, 0');
DbfFields.Strings.Add('test2, N, 6, 0');
DbfFields.Strings.Add('test3, N, 6, 0');
DbfFields.Strings.Add('test4, C, 20, 0');
DbfFields.Strings.Add('test5, F, 18, 8');

oder

Delphi-Quellcode:

DbfFields.Strings.Text := 'test1, N, 6, 0'#10
  + 'test2, N, 6, 0'#10'test3, N, 6, 0'#10
  + 'test4, C, 20, 0'#10'test5, F, 18, 8';

oder
(nja, wie kann man denn noch alles eine StringList befüllen? )

Habe auch schon einiges versucht. Aber der Vorschlag funktioniert leider auch nicht. ".Text" kennt das Objekt nicht.
Der Compiler meldet "[Fehler]Datei.pas(88): '[' erwartet, aber '.' gefunden."

[himitsu]

Nicht?

Der entsprechende "Parser" hat sich mindestens seit Delphi 7 nicht mehr geändert (nur seit D2009 ist noch 'ne Umcodierung vorgeschaltet).
Und dieser Parser kommt mit Windows #13#10, Unix/Linux #10 und Mac #13 zurecht ... also wieso sollte man daran was ändern wollen, vorallem wo es doch jetzt mit Delphi langsam auf CrossPlatform zu geht. :stupid:

[mkinzler]

Welchen Typ hat den die Variable?

[FriendOfDelphi]

Zitat:

Zitat von mkinzler

Welchen Typ hat den die Variable?

Delphi-Quellcode:

property Strings : [Index: Integer]: String