Datei nummeriert speichern

[Robert_G]

Beim Speichern musst du einfach nur andersherum denken...
Für DupeString musst du die Unit StrUtils in die Uses-Clause aufnehmen.

Delphi-Quellcode:

Var
  flStrList                             : TStringList;
  DeinFileName                          : String;
  Zahl                                  : Integer;
Begin
  If Not Savedialog1.Execute Then Exit;
  DeinFileName := Savedialog1.FileName;

  flStrList := TStringList.Create;

  Try
    flStrList.Assign(SynMemo1.Lines);
    Zahl := 0;
    While zahl < pred(flStrList.Count) Do
    Begin
      flStrList[Zahl] :=
        IntToStr(succ(Zahl)) +
        DupeString(#32, 7 - Length(IntToStr(succ(Zahl)))) +
        flStrList[Zahl];
      inc(Zahl);

    End;
    flStrList.SaveToFile(DeinFileName);
  Finally
    FreeAndNil(flStrList);
  End;

... wenn du den Text nicht unbeding perfekt eingerückt (hier 7 Stellen) brauchst, kannst du anstatt "DupeString..." auch ein #32 nehmen.
Nachtrag: Wenn du den Text ausrichtest, musst du beim Einlesen diesen Wert verwenden (anstatt "Pos(#32, flStrList[Zahl])")
-> sonst sieht man die ganzen Leerzeichen.

[fkerber]

Hi!

Probier mal, ob das geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
strlist: Tstringlist;
begin
i:=0;
strlist := TStringList.Create;

  Try
    StrList.Assign(Synmemo1.Lines);
    Synmemo1.Clear;
    While i <= pred(StrList.Count) Do
      begin
        synmemo1.Lines.Add(inttostr(i+1)+' '+Strlist[i]);
        i:=i+1;
      end;
  Finally
    FreeAndNil(StrList);
  end;
end;

Ich hoffe, dass der Code in Ordnung ist. Habe mich noch nicht so wirklich damit auseinandersetzen können. Falls Fehler drin sind, oder die Vorgehensweise nicht ok ist, sagt Bescheid.

Ciao fkerber

Edit:
a) zu langsam
b) @Robert_G: Ist mein Code in Ordnung, oder nicht empfehlenswert?

[Dragon27]

Zitat:

.. wenn du den Text nicht unbeding perfekt eingerückt (hier 7 Stellen) brauchst, kannst du anstatt "DupeString..." auch ein #32 nehmen.
Nachtrag: Wenn du den Text ausrichtest, musst du beim Einlesen diesen Wert verwenden (anstatt "Pos(#32, flStrList[Zahl])")
-> sonst sieht man die ganzen Leerzeichen.

Ähm wie bitte? Was ist #32?? und Dupestring wo is der unterschied sorry aber hab sowas noch nie gemacht


in der Delphiholfe steht folgendes:

Zitat:

Die Funktion gibt die mehrfache Verkettung eines Strings mit sich selbst zurück. Die Anzahl der Wiederholungen kann angegeben werden.

Unit

StrUtils

Kategorie

String-Verarbeitung

Delphi-Syntax:

function DupeString(const AText: string; ACount: Integer): string;

C++ Syntax:

extern PACKAGE AnsiString __fastcall DupeString(const AnsiString AText, int ACount);

Beschreibung

DupeString gibt einen String zurück, der ACount Wiederholungen des Strings AText enthält. Ein Beispiel:

S := DupeString('Ha', 5);

Diese Anweisung gibt den String 'HaHaHaHaHa' zurück.

Danke

P.s.: Will ja nicht nur den code kopieren sondern ihn auch verstehen *g* was ja manche nicht so nehmen

[Robert_G]

DupeString('Hallo', n) wiederholt einen String ('Hallo') n-mal.

#32 ist der ASCII-Code für ein Leerzeichen, ich verwende selten ' ' in meinem Code(außer bei SQL-Statements), da man beim schnellen Durchscrollen nicht sofort sieht ob da nicht jemand einen Tab (#9) reingesetzt hat.

succ(Zahl) liefert den Nachfolger
pred(Zahl) -"- Vorgänger

inc(Zah) entspricht: Zahl := Zahl + 1;
dec(Zah) entspricht: Zahl := Zahl - 1;

Length(IntToStr(Zahl)) gibt dir die Länge von "Zahl"


DupeString(#32, 7 - Length(IntToStr(succ(Zahl)))) gibt dir deshalb: 7 - "Länge von Zahl" Leerzeichen.
Das meinte ich mit einrücken:
Im SynMemo:

Code:

CREATE OR REPLACE TRIGGER ctsdd.rule_change
before update or delete of object_id on ctsdd.rule
for each row
BEGIN

  IF updating THEN
    UPDATE ctsdd.extended_rule

in der Datei

Code:

15646  CREATE OR REPLACE TRIGGER ctsdd.rule_change
15647  before update or delete of object_id on ctsdd.rule
15648  for each row
15649  BEGIN
15650  
15651   IF updating THEN
15652     UPDATE ctsdd.extended_rule

[Dragon27]

hi, danke für die lange Erklärung nett von dir!

Eine Frage bleibt noch offen wie mache ich es dass er immer bei der Nummerierung mit 0 anfängt (dass ist ganz wichtig)!
hab da das schon so probiert:

Delphi-Quellcode:

Var
  flStrList                             : TStringList;
  DeinFileName                          : String;
  Zahl                                  : Integer;
Begin
  If Not form1.Savedialog1.Execute Then Exit;
  DeinFileName := form1.Savedialog1.FileName;

  flStrList := TStringList.Create;

  Try
    flStrList.Assign(form1.SynMemo1.Lines);
    Zahl := -1;
    While zahl < pred(flStrList.Count) Do
    Begin
      inc(Zahl);
      flStrList[Zahl] :=
        IntToStr(succ(Zahl)) +
        DupeString(#32, 7 - Length(IntToStr(succ(Zahl)))) +
        flStrList[Zahl];


    End;
    flStrList.SaveToFile(DeinFileName);
  Finally
    FreeAndNil(flStrList);
  End;

aber er fängt trotzdem bei 1 an. Warum?

Danke

[fkerber]

Hi!

Ich glaube, es müsste so heißen;

Delphi-Quellcode:

Try 
    flStrList.Assign(form1.SynMemo1.Lines); 
    Zahl := 0; 
    While zahl < pred(flStrList.Count) Do 
    Begin 
      inc(Zahl); 
      flStrList[Zahl] := 
        IntToStr(Zahl) +   //<-- hier
        DupeString(#32, 7 - Length(IntToStr(succ(Zahl)))) + 
        flStrList[Zahl];

ciao fkerber

[Dragon27]

Zitat:

Zitat von Robert_G

DupeString('Hallo', n) wiederholt einen String ('Hallo') n-mal.

#32 ist der ASCII-Code für ein Leerzeichen, ich verwende selten ' ' in meinem Code(außer bei SQL-Statements), da man beim schnellen Durchscrollen nicht sofort sieht ob da nicht jemand einen Tab (#9) reingesetzt hat.

succ(Zahl) liefert den Nachfolger
pred(Zahl) -"- Vorgänger

inc(Zah) entspricht: Zahl := Zahl + 1;
dec(Zah) entspricht: Zahl := Zahl - 1;

Length(IntToStr(Zahl)) gibt dir die Länge von "Zahl"


DupeString(#32, 7 - Length(IntToStr(succ(Zahl)))) gibt dir deshalb: 7 - "Länge von Zahl" Leerzeichen.
Das meinte ich mit einrücken:
Im SynMemo:

Code:

CREATE OR REPLACE TRIGGER ctsdd.rule_change
before update or delete of object_id on ctsdd.rule
for each row
BEGIN

  IF updating THEN
    UPDATE ctsdd.extended_rule

in der Datei

Code:

15646  CREATE OR REPLACE TRIGGER ctsdd.rule_change
15647  before update or delete of object_id on ctsdd.rule
15648  for each row
15649  BEGIN
15650  
15651   IF updating THEN
15652     UPDATE ctsdd.extended_rule

Hallo,

also hab jetzt mal a bisserl hin und her probiert und jetzt funzt diese Procedur oben schon recht gut nur sollten jetzt keine einrückungen mehr beachtet werden also aus dem:

Code:

15647  before update or delete of object_id on ctsdd.rule
15648  for each row
15649  BEGIN
15650  
15651   IF updating THEN
15652     UPDATE ctsdd.extended_rule

soll das werden:

Code:

15647  before update or delete of object_id on ctsdd.rule
15648  for each row
15649  BEGIN
15650  
15651  IF updating THEN
15652  UPDATE ctsdd.extended_rule

nun ist die frage, geht das mit diesem misteriösen "-7" :witch: oder wie soll ich das anfangem? Ich habe da echt null peil

Danke für eure Hilfe


Gruß

Andy