Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
4. Apr 2006
Kosmisch, dann gabs in D% StringReplace auch noch nicht :-(. Dann implementieren wir das halt schnell ;-(
function StringReplace( str: string; alt: Char; neu: Char);
var
i: Integer;
begin
for i := 1 to Length( str) do
begin
if str = alt then str := neu;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
3. Apr 2006
Auch wenn du vielleicht anderst verstanden hast, bin ich offen für Kritik. ;-) Ich hab mir nur gedacht, daß du nicht den ganzen Thread gelesen hast.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
3. Apr 2006
Aber notwendig, da Delimiter/DelimitedText erst ab D6 vorhanden sind. Anfänglich war dies ja auch so im Code.
Da hat er mich falsch verstanden, hatte ihm geraten statt .DelimitedText .CommaText zu nehmen und vorher die Pipes durch Kommas zu ersetzen. Also:
sl.CommText := StringReplace( s, '|', ',', rfReplaceAll);
Hab sein Post nicht mehr durchgelesen und deshalb die Fehler übersehen ;-(
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
3. Apr 2006
Wenn sichergestellt ist das keine Kommas in der datei vorkommen kann mann statt .DelimitedText .CommText verwenden und die Trenner '|' vorher durch Kommas ersetzen: StringReplace( s, '|', ',', rfReplaceAll);
Ich habe auch den Originalbeitrag gefunden
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
3. Apr 2006
Welche Skripts?
das ist eine Prozedur welche du als Methode, Globale Prozedur oder Subprozedur nutzen kannst. Sie stammt aus der Delphi-Source. IDie Procedure erwartet vier Parameter. Dem ersten Parameter muss das zu druckende StringGrid übergeben werden (z.B. StringGrid1), dem zweiten Parameter den linken und oberen Rand beim Drucken. Der vierte Parameter ist für die Skalierung zuständig.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
3. Apr 2006
Sorry, das fehlt natürlich noch: Dieser Code schreibet die Werte in ein StringGrid
...
for i := 0 to sl.Count do
begin
StringGrid.Cells := sl.Strings
end;
inc(j);
...
griddruck(stringgrid,0,0,1);
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
3. Apr 2006
Z.B. mit Hilfe einet StringListe.
var
sl: TStrings;
tf: TextFile;
s: string;
...
sl := TStringList.Create;
sl.Delimiter := '|';
AssignFile( <dateiname>, tf);